QUSER ® SITE 


 ) 
PACKET 224 
INPUT 8 CARDS FROM CRA 
e TIME 1346 
DATE 78109 WEDNESDAYe 04/19/78 
] 
] 
*#* BURROUGHS B5700 DCMCP MARK XV1,0,478 AND INTRINSICS MARK XVJ,0,132 «4% 
@ 
#NO MESSAGES TODAY 
e 13846530 9USER« SYTE 
43946230 ?COMPILE PASCAL/JUNK XALGOL XYNTAX 
¥3246130 ?XALGOL FILE TAPER ELPASO/U819005 DISK SERIAL 
e 13446331 @XALGOL STACKs 1000 
13346831 ?DATAOS9 CARD ; 
93346131 SItXALGOL/PASCAL® 2 BOU 1346 04/17/78 
®@ 13446133 CDA IN CARD DAtXALGOL/PASCAL® 2 
13446834 #NO FIL ON DISK ELPASO UBLI9OOSEXALGOL/PASCAL® 2 
43846149 IL OK pS 
@ 13946449 #NO FIL ON DISK ELPASO UB1L9005!XALGOL/PASCAL® 2 
$33847142 +OPERATOR KEYED IN 20K 
$3347143 DKA IN SER ELPASO U8y90058XALGOL/PASCALE 2 
& 13347344 PBDO222 OUT O11 LINES XALGOL/PASCALS 2 
3:47:48 OKA OUT SER DSK2 SITetxaLGOL/PAScALs 2 
13847355 DKA OUT RDM PASCAL JUNKEIXALGOL/PASCALR 2 
e@ $3847358 DKA OUT SER DSK1 SITESXALGOL/PASCAL® 2 
434543748 +OPERATOR KEYED IN? 2TL 
13954818 TIME LIMITS FOR XALGOL/PASCAL=® 2 AREt PRT#NO LIMITS IO0TSNO LIMIT, 
e 13854327 #+OPERATOR KEYED IN3 e2Tl 
138543827 TIME FOR XALGOL/PASCALe 2 [St CPe 5347 JOR 41855 IN 7357 
43154326 DKA LOK PASCAL JUNKIXALGOL/PASCAL= 2 
e 13354329 CDA REL CARD DAIXALGOL/PASCAL® 2 
13354329 END . 
13454829 OKA REL ELPASO U8190051XALGOL/PASCAL® 2 
@ 43254333 DKA OUT SER DSRT1 SITELXALGOL/PASCALe 2 
43854845 DKA OUT SER DSRT2 SITESXALGOL/PASCAL= 2 
13154955 OKA REL DSRT1 SITESXALGOL/PASCALS 2 
e $39594355 OKA REL OSRT2 SITEMXALGOL/PASCALe 2 
13354455 DKA OUT SER DSRT1 SITESXALGOL/PASCAL@ 2 
13457830 DKA OUT SER DSRT2 SITEHXALGOL/PASCALe 2 
@ 44400822 OKA REL OSRT1 SITESXALBOL/PASCALS 2 
14800823 OKA REL DSRT2 SITEMXALQOL/PASCALe 2 
14800125 DKA REL DSK2 S{TESXALGOL/PASCALe 2 
e@ 14300326 DKA REL DSK1 SITESXALGOL/PASCALe 2 
14800327 Pep0222 REL O11 LINE 62105XALGOL/PASCALs 2 
448001829 XALGOL/PASCAL® 2 E0V 14900 . 
e 14800129 FOR XALGOL/PASCALme 23 RROCESSs 613 SECS, 108 203 SECSs OLAYs 13 
14800131 SIPASCAL/JUNKS01 SCHEDULED 14002 NEEDS 27264 
14901104 1FS 
e 148014805 *OPRTR ES*ED PASCAL/JUNK= 25 Sm le Aw 030 
@ 


@®eeeeeeee#seeeeeeseeeee#eeee @ 


#4301807 
4301308 
#4301109 


PASCAL/JUNKs 2 DS"ED 1401 
FOR PASCAL/JUNK® 23 PROCESS# O SECS» 
PKT#0221 REMOVED 


10s 8 SECS» 


OLAY= 0 


ee ee ee ee ee ee er ee ee ee ee ee ee 2 ee ee a | 


LABEL OO0000000LINE OO1781097COMPILE PASCAL/JUNK XALGOL XYNTAX XALGOL /PASCAL 
BURROUGHS B"5700 XALGOL COMPILER MARK XV1e0,120 WEDNESDAYs 04/19/78 1346 PM, 


PASCAL /JUNK 


SOURCE FILES ELPASO /U819005 


SEBTLEALBTARALALLAERALFLALLALASAALLLASLELREBLASALLEALARASAALSLASSTUGALALA 00000001 T 0000 
4 00000002 T 0000 
% % 00000003 T 0000 
+ * * % 00000004 T 0000 
% * PASCAL COMP TULER * x 00000005 T 0000 
% PES SSE LESS ELS Pe Pee eee eT eee eee es er ST | % 00000006 T 0000 
% % 00000007 T 0000 
z z 00000008 T 0000 
z WRITTEN 1975 BY % 00000009 TF 0000 
% DAG F, LANGMYHR, z 00000010 T 0000 
% HERTOT#WATT UNIVERSITYe x 00000011 T 0000 
% EDINBURGH, % 00000012 T 0000 
% 00000013 T 0000 
¥ z 00000014 T 0000 
EERLASLXTARLAALALASALAEAATEAAALALARAAFSALESALALAAVSAAAVSLAATSALAARLELLVE 00000015 T 0000 
z % 00000016 T 0000 
; % 00000017 T 0000 
% PART 1! DECLARATIONS, z 000000186 T 0000 
z ate wertenaatee % 00000019 T 0000 
% z 00000020 T 00090 
% % 00000021 T 0000 
BELYLABAALAATLALASTAZLSAABASLARASALALARALSATSLAALVALALALSALALBALALAIVLYYRY 00000022 T 0000 
% 00000023 T 0000 
% 00000024 T 90000 
BEGINZ 00000025 T 0000 


PRT(22) & *L1ST» LABELe OR SEGMENT DESCRIPTOR« 
PRT(23) *OUTER BLOCK pESCRIPTOR* 
PRT(¢24) © *SEGMENT DESCRIPTOR* 


4H 


START OF SEGMENT ke #48 ee x 


DEFINE EDITION#"2, 3°83% 00000026 T 0000 
INTEGER NUMERRSs» % @Reoit NUMBER OF ERRORS IN PROGRAM, 00000027 T 0000 
PRT(25) = NUMERRS 
SAVEFACTOR, % @R+o2: SAVEFACTOR FOR CODE FILE, 00000028 T 0000 
PRT(26) = SAVEFACTOR 
% >0 COMPILE TO LIBRARY, 00000029 T 0000 
% =Q COMPILE AND RUN, 00000030 T 0000 
z <0 COMPILE FOR SYNTAX, 00000031 T 0000 
CARDCNT? % @R4238 NUMBER OF CARDS READ, 00000032 T 0000 
PRT(27) © CARDCNT 
FILE CARD "SOURCE™ ¢26100150)3 % SOURCE CODE INPUT FILE 00000033 T 0000 
PRT¢(30) # CARD 
FILE LINES 1 (2017)3 % PRINT FILE, 00000034 T 0003 
PRT(34) = LINES 
FILE PASCALGOL DISK SERIAL [£20600] (25100150,SAVE 0)8 &% CODE FILE 00000035 T 0007 


PRT(32) = PASCALGOL 
PRT(33) & 
PRT(34) = FILE ATTRBUTS 
DEFINE LINESPERPAGEs52#,% 00000036 P 0013 
MAXINT#@54975561 3687832 00000037 T 0013 
z 00000038 T 0013 
Z*** COMPYTLER CONSTANTS #4 00000039 T 0013 
DEFINE MAXTABLES «#50#, Max NUMBER OF NAME TABLES, 00000040 T 0013 
MAXNAMES a9I97k, ZMAX NAMES IN EACH TABLE, 000000461 T 0013 
MAXLEVEL BidS#s ZMAX DEPTH OF PROCEDURE DECLARATIONS, 00000042 T 0013 
MAXCASES =211#, ZMAX LABELS IN A CASE*STATEMENT, 00000043 T 0013 
MAXLABS ni100#, ZMAX NUMBER OF LABELS, 00000044 T 0013 
MAXPARAMS 8200#, 3MAX NUMBER OF PARAMETERS IN WHOLE PROGRAM, 00000045 T 0013 
MAXTYPES 10228 e ZMAX NUMBER OF DIFFERENT TYPES, 00000046 T 0013 
MAXCONSTS #2004, ZS1ZE OF CONSTANT TABLE, 00000047 T 0013 
MAXTEMPS 25f#, NUMBER OF EXTRA VARS IN EACH PROCEDURE, 00000048 Tt 0013 
MAXWITHSYMS2250#, ZMAX NUMBER OF SYMBOLS USED BY WITH#STATMS, 00000049 T 0013 
MAXSYMS zBOO#, ZMAX NUMBER OF SYMBOLS IN ONE EXPRESSION, 00000050 T 0013 
LISTLENGTH #8004, ZMAX LENGTH OF VAR AND PARAM LISTS, 00000051 T 0013 
MAXEXTFILESs208e ZMaX NUMBER OF EXTERNAL FILES, 00000052 T 0013 
MAXFILES B20. ZMAX NUMBER OF FILES DECLARED AT ONE TIMEe 00000053 T 0013 
MAXPNTRS e508) ZMAX NUMBER OF UNDECLARED POINTERS, 00000054 T 0013 
% 00000055 T 0013 
Z*** NAME TABLES *«« 00000056 T 0013 
ARRAY NAME TABI #® NAME TAB2e NAME TABSE OSMAXTABLESs OLMAXNAMES]32 00000057 T 0013 
PRT(35) w= NAMETABI 
PRT(36) = NAMETAB2 
PRT(37) = NAMETAB3 
DEFINE NAMELENGTH £4196) 85% 00000058 T 0015 
TYPE w(9$4018 2% 00000059 T 00135 
tOCLASS el12i:3)]#s% 00000060 T 0015 
VAR wO#sd 00000064 T 0015 
CONST wi# ot 00000062 T 0015 
FUNC 285% 00000063 T 0015 
PROC =3#o% 00000064 T 0015 
TYPES a48e% 00000065 T 0015 
INFO ECAIGLL IFS 00000066 T 0015 
FORMAL eC24s1L) 40% 00000067 T 0015 
FORWARDDEF eC25311]#5% 00000068 T 0015 
EXTERNALFILES( 26817832 00000069 T 0015 
% 00000070 T 0015 
Z¥** DISPLAY VECTOR ** 00000071 T 0015 
ARRAY DySPLAYCOPMAXLEVELIJIZ 00000072 T 0015 
PRT¢(40) = DISPLAY 
DEFINE RECTYPE w(9410)#,% 00000073 T 0017 
FIRSTWITHSYM weC198 gO) eon 00000074 T 0017 
LASTWITHSYM EC290,0] Bek 00000075 T 0017 
NUMPNTRSINWITHSL3586)]#,% 00000076 T 0017 
BRACKETSINWITH=(3681)#,% 00000077 T 0017 
NAMETAB =( 4687432 00000078 T 0017 
z 00000079 T 0017 
g*¥ee TYPE TABLES *** 00000080 T 0017 
ARRAY TYPETABLeTYPETAB2eTYPETABRZCOUMAXTYPESJS& 00000081 T 0017 
PRT(44) & TYPETABY 
PRT( 49) «& TYPETAB2 
PRT(43) = TYPETAB3 
DEFINE FORM #(384)#03% 00000082 T 0019 
NUMERIC #0808 00000083 T 0019 


PRT( 4a) 


PRT¢45) 


PRT(46) 


PRT(47) 
PRT(50) 


PRT¢51) 


PRT(52) 
PRT(53) 


PRT(54) 
PRT(55) 
PRT(56) 


PRT(57) 
PRT(60) 


» CHARPNT 


SYMBOLICH1#02% 
SUBTYPE =2#9% 
MAINTYPER( 338101823 
CHAR a3¥0% 
FLOATINGw4#s% 
ALFA e5#,% 
SET 768% 
SETTYPE s(33310]80% 
POINTERS=7#0% 
POINTTYPES( 33140) 80% 
ARRAYS #8#0% 
INXTYPE BL33N10] 80% 
ARRTYPE sC43810] #03 
RecORD #9#e% 
RECTAB #6£33410]85% 
FILES m1O#,3 
FILETYPES(33810] 803 


TEXTFILERL1#»% 
SIZE =Ci5912] 49% 
STRUCTS£2316)#3% 
INTEGER NUMTYPESS2 
NUMTYPES 
% 


Zee PARAMETER TABLE *** 
— ARRAY PARAMTABLOIMAXPARAMS]3% 
PARAM¥AB 
DEFINE PARAMNAME =(9t40])#og 
PARAMKIND =r13#4]#e% 
PARAMLEVEL@(23810]#,% 
PARAMTYPE =(33810]#5% 
PARAMFILE mC 34t1)#5% 
INTEGER NUMPARAMS3% 
NUMPARAMS 
% 
z*e* CONSTANT TABLE #4** 
ARRAY CONSTTABCOEMAXCONSTS] 32% 
CONSTTAB 
INTEGER NUMCONSTS3% 
NUMCONSTS 
% 
Kees LABEL TABLE *#* 
ARRAY LABTABLOtMAXLABS]32% 
LABTAB 
DEFINE LABVAL#(14215)#.% 
LABDEFRL15%4 #32 
INTEGER NUMLABS,FIRSTLABSS 
NUMLABS 
FYRSTLAB 
z 


Z*** TABLES FOR 1/0 AND CHARACTER HANDLING *&* 
ARRAY CHeOtO}» TEXTCOti)e STRINGLOI13)33% 


CH 
TEXT 
STRING 


TEXTPNT 


POINTER CHARPNTsTEXTPNT sp TEXTPNTOsSTRINGPNT 3S 


00000084 
00000085 
00000086 
00000087 
00000088 
00000089 
00000090 
00000091 
00000092 
00000093 
00000094 
00000095 
00000096 
00000097 
00000096 
00000099 
00000100 
00000101 
00000102 
00000103 
00000104 


00000305 
00000106 
00000107 


00000308 
00000309 
00000410 
00000141 
00000112 
00000113 


00000114 
00000115 
00000116 


00000117 


00000116 
00000119 
00000120 


00000121 
00000122 
00000423 


000001424 
00000425 
00000126 


00000127 


AHAB HAH At st 


ee ee ee 


a4 


0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
00149 


0019 
0019 
0019 


0021 
0021 
0021 
0021 
0021 
0021 


0021 
0021 
0021 


0023 


0023 
0023 
0023 


0025 
0025 
0025 


0025 
0025 
0025 


0030 


PRT(64) 
PRT(62) 


PRT(63) 
PRT(64) 
PRT(65) 
PRT(66) 
PRT(67) 
PRT(70) 
PRT(74) 
PRT(72) 
PRT(73) 
PRT (74) 
PRT(75) 


PRT(76) 
PRT¢77) 


PRT¢100) 


PRT(101) 
PRT(1029 


PRT(103) 


PRT(104) 
PRT(105% 


PRT(1069 


PRT(107) 
PRT(110) 


PRT(111) 


PRT(142) 
PRT¢11439 


PRT¢1949 
PRT¢1459 
PRT(1169 
PRT(117) 
PRT(1204 
PRT(121) 
PRT( 122) 


PRT(123) 
PRT(124) 


TEXTPNTO 
STRINGPNT 


ARRAY ICARDLOtNDI] + LINELOSL6)]» XLINECO810)» ALGOLCARD(COI9I#% 


ICARD 
LINE 
XLINE 
ALGOLCARD 
POINTER CARDPNTaLINEPNToXLINEPNT? ALGOLPNT 3% 
CARDPNT 
LYNEPNT 
XLINEPNT 
ALGOLPNT 
INTEGER CHARCNT es ALGOLCNT eMARGINCNTSS 
CHARCNT 
ALGOLENT 
MARGINCNT 
ARRAY HEADTEXTCO&810)» ERRLINECO816)3% 
HEADTEXT 
FERRLINE 
INTEGER LINECNTsPAGECNTsERRYINXIE 
LINECGNT 
PAGECNT 
ERRINX 
% 


Ree XREF FILE AND TABLE *#*% 
FILE XREFFILE DISK SERIAL (2013800) €2530150)3% 
XREFEILE 
ARRAY BLOCKTABLOSMAXTABLESJ» XREFLINELO#16]3 & 
BLOCKTAB 
XREFLINE 
INTEGER NUMXREFsNUMBLOCKSS POINTER XREFPNTSS 
NUMXREF 
NUMBLOCKS 
XREFPNT 
% 
Z*e* OTHER TABLES *«* 
INTEGER ARRAY VARLISTCOSLISTLENGTHI3 
VARLYST 
INTEGER VARINDEXeFIRSTVARSS 
VAR INDEX 
FIRSTVAR 
ARRAY SyMTABLOIMAXSYMS]3 % 
SYMTAB 
INTEGER NUMSYMS3§ 
NUMSY¥MS 
ARRAY WrTHTABCOEMAXWITHSYMS)3 % 
WITHEAB 
INTEGER NWITHSYMSS% 
NWITHSYMS 
INTEGER ARRAY SYMBOL(0#64)3 % 
SYMBOL 
INTEGER ARRAY SYMKIND(0861)3 % 
SYMK IND 
ARRAY PNTRTABLePNTRTABZePNTRTABZ(LORMAXPNTRSJ3% 
PNTRTABL 
PNTRTAB2 
PNTRTAB3 
INTEGER NUMPNTRS3& 


% TEMPORARY 


LIST OF VARIABLES, 


BY "EXPRESSION", 


BY "WITHSTAT", 


BY "INSYMBOL"™, 


IN ERROR RECOVERY, 
FOR FORWARD POINTERS 


00000128 


00000129 


00000130 


00000131 


00000132 


00000133 
00000134 
00000135 


00000136 


00000137 


00000138 
00000139 
00000440 


00000141 


00000142 
00000143 
00000144 
00000145 
00000146 
00000147 
00000148 


00000149 


4-44 


4-44 


0030 


0037 


0037 


0037 


0040 


0040 
0040 
0040 


0044 


0047 


0047 
0047 
0047 


0049 


0049 
0051 
0051 
0053 
0053 
0054 


0056 


0058 


PRT(125) 
PRT( 196) 
PRTC127) 
PRT¢130) 
PRT(1319 
PRT(132) 


PRT(133) 
PRT(134) 
PRT(135) 
PRT(136) 
PRT(137) 


PRT(140) 


PRT(141) 
PRT(142) 
PRT(143) 
PRTC 144) 
PRTC 1459 
PRT( 146) 
PRTC147) 


PRT(150) 
PRT(1519 
PRT(1529 


PRTC1535 
PRT(1549 


PRT(1559 
PRT(1569 
PRT(157) 
PRT(160) 
PRT(161)9 


PRT(162) 


PRT(163) 
PRT(164) 


PRT(165) 


NUMPNTRS 
ARRAY EXTFILETABLOEMAXEXTFILESI]3 
EXTFILETAB 
INTEGER NUMEXTFILES3SS 
NUMEXTFILES 
ARRAY FYLETABLOSMAXFILES]3 
FILETAB 
INTEGER NUMFILES3S% 
NUMFILES 
BOOLEAN ARRAY ERR(0I119]3 


% EXTERNAL FILES, 
® FILES IN USE, 


% RECORDS ERROR MESSAGES, 
ERR 
% 
%ee% COMPILE TIME OPTIONS «= 
BOOLEAN LISTOPTION,RESWORDOPT 1 ONeCHECKOPT J ONsDUMPOPT JONeXREFOPTIONSS 
LISTOPTJON 
RESWORDOPTION 
CHECKOPTJON 
DUMPOPTYON 
XREFOPTION 
INTEGER CARDLENGTHS 2 
CAROLENGTH 
% 


Z*ee INTRINSIC TYPES ¥%* 
aeeeeh INTTYPEsREALTYPE sALFATYPE sCHARTYPE eBOOLTYPE »NILTYPEs TEXTTYPE oS 
INTTYPE 
REALTYPE 
ALFATYPE 
CHARTYPE 
BOOLFYPE 
NILT¥PE 
TEXT¥FYPE 
INPUTFILEsOUTPUTFILEsEMPTYSET 32 
INPUTFILE 
OUTPUTFILE 
EMPTYSET 
BOOLEAN INPUTDECLeOUTPUTDECL 3% 
INPUTDECL 
OUTPUTDECL 
% 
Z*¥e* TEMPORARY VARJABLES *«#* 
INTEGER To seT2eT3eTO,TSIZ 


Zee OTHER VARIABLES «# 
ALPHA USER3 
USER 
x 
INTEGER CURLEVELe % CURRENT PROCEDURE LEVEL, 
CURLEVEL 
TOPLEVEL»s % TOP LEVEL IN DISPLAY VECTOR, 
TOPLEVEL 
NUMBEGINSe % NUMBER OF "BEGINS IN THE PROGRAM, 
NUMBEGINS 


% THE USER NUMBER FOUND ON THE USER CARD, 


00000150 
00000151 
00000152 
00000153 
00000154 
00000155 


00000156 
00000157 


00000158 
00000159 


00000160 
00000161 


00000162 


00000163 


00000164 
00000165 
00000166 


00000167 
00000168 
00000169 


00000170 
00000171 


00000172 


00000173 


444 


i, 


414-3 


a4 


005% 
0060 
0060 
0062 
0062 
0064 


0064 
0064 


0064 
0064 


0064 
0064 


0064 


0064 


0064 
0064 
0064 


0064 
0064 
0064 


0064 
0064 


0064 


0064 


7 : 


PRT( 166) 
PRT(167) 
PRT(170) 
PRTC1719 
PRT(1729 
PRT(173) 
PRTC1749 
PRT(175) 


PRT(1769 


PRT(177) 


NUMCASES 
NUMREPS 
NUMTEMPS 
CURFUNC 
CURSY 
CURTYPE 
CURM@DE 
LASTREC 


NUMCASES» % NUMBER OF CASE*STATEMENTS IN PROGRAM, 
NUMREPS, x NUMBER OF REPEAT*STATEMENTS IN PROGRAM, 
NUMTEMPS, ® NUMBER OF TEMPORARY VARIABLES IN USE, 
CURFUNC, ® INDEX OF FUNCTION CURRENTLY COMPILED, 
CURSY»s % LAST SYMBOL READ BY SCANNER, 

CURTYPE>s ® TYPE OF ENTITY LAST COMPILED, 

CURMODE» ®% CURRENT EXPRESSION MODE, 

LASTREC3 % LAST RECORD TABLE DEFINED, 


% 
LABEL ENDOFINPUTS2 
% 


FORMAT NOERRORS ("NO ERRORS DETECTED,") 0% 


NOERRORS 


ERRORS 
ALYST 
NOALIST 


C159" ERRORS pETECTEDM/) 9% 
("S SET LIST SINGLE") »% 
C$ RESET LIST") 5% 


LASTLINE ("3 TERMINATE? END OF PASCAL PROGRAM,") 5% 


TERMMESS (teeee 


ENo@OF*,NPUT, COMPYLATION TERMINATED, ") 3% 


MONITOR EXPOVR! sREALOVERFLOW) g 


REALQVERFLOW 


% 


Z*ee SCANNER SYMBOLS «4 


DEFINE 


% 


IDENTIFIERw{#» INTCONSTs2#, REALCONSTs3@—e ALFACONST&4#e% 
CHARCONST#5#, NOTSYx6#- ASTERISK®7#> SLASHRBE 5% 
ANDSY#9#, DIVSYx1O#>s MODSYs118, PLUS #1 2#0% 
MINUS#13#, ORSY #1448, LSSSY=15#, LEQSY#16#,% 
GEQSyai7#, GTRSYsl64e NEQSya19#, FQLSY2208,% 
INSYs21 #6 LPAR=O2#» RPARw23#>5 LBRACKET#24#5% 
RBRACKET#25#, DOUBLEDOTS26#4, COMMAw27#, SEMI COLONE26#,% 
DOTm29#, ARROWn 308, COLONE31#, ASSIGNSY=32# 5% 
BEGINSYa33#. ENDSYe34#> IFSYs35#> THENSY=3685% 
ELSESYa37#, CASESysg6#, OF SYe398.s REPEATSYs408.% 
UNTILSYs4}¥e WHILESYedat, DOSY e438» FORSYmA4t,% 
TOSY e454. DOWNTOSY#46#» GOTOSYRd7#, NILSY@G6#0% 
TYPESYe49#, ARRAYSYe#50#. RECORDSY=5i#0 FILESY#52#,% 
SETSY#53#, CONSTSY#54#, VARSY=55#, LABELSY=56#0% 
FUNCSYs#57#, PROCSyxg6#, WITHSYa59#, PROGRAMS Ym60#,% 
PACKEDSYs6143% 


DEFINE yNITIAL@O#, MIDDLESI#s TERMINAL S28)% 
DEFINE NUMBER®O0#, BY TPATTERN#1 43% 


00000174 
00000175 
00000176 
000001377 
00000178 
00000179 
00000180 
00000181 
00000182 
00000183 


00000184 
00000185 


START OF SEGMENT 


00000186 
00000187 
00000188 
00000189 
00000190 


46 LONG 


00000191 


00000192 
00000193 
00000194 
00000195 
00000196 
00000197 
00000198 
00000199 
00000200 
00000204 
00000202 
00000203 
00000204 
00000205 
00000206 
00000207 
00000208 
00000209 
00000210 
00000211 
00000242 


a 


MAH HAH HHH Ho 


0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 


0064 
0064 


Pee etter 


0064 
0064 
0064 
0064 
0064 
NEXT SEG 
0064 


0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 


3 


2 


® © 


EIZARASLLALLELABEARTERALRELAZA 


% 

% 

% 

% PART 23 
% 

% 

z 

% 
BELABVLALAATAASAASALAAALBASAAAY 
% 

% 


| PROCEDURE INSYMBOLS FORWAR 

PRT(200) © INSYMBOL 

PROCEDURE WRITEALGOLS  FORWA 
PRT(201) & WRITEALGOL 

PROCEDURE NEWXREFCNAME1sNAME2 
PRT(202) © NEWXREF 

VALUE NAME1» NAME2s TABLEs DE 

REAL NAMEt» NAME23% 

INTEGER TABLESS 

BOOLEAN DECLE& 

FORWARD3% 

% 

DEFINE NDIGITSCN)s% 

IF NS 9 THEN 1 ELSES 

IF NS99 THEN 2 ELSE 3 DIGITS# 


x 

DEFINE HEADING#% 

BEGIN COMMENT *#* PRINTS A HE 
PAGECNTtmPAGECNT443% 
REPLACE POINTERCHEADTEXTE 
WRITECLINES{LPAGE1)3% 
WRITECLINESCOBLJ e1i+HEADT 
LINECNTI#23% 

END OF HEADING#3% 

% 


% 
DEFINE PRINTLINES 
BEGIN’ 
REPLACE LINEPNT®8 BY CARD 


PELARALAFLASTLARLAUAEARALRAAAATARTAGATAALAVY 
% 


COMPILER UTILITY ROUTINES, 


% 
% 
& 
ate OFF eee FFs Feo Ber Fa eee eee 3 
% 
% 
4 
4 


RELARPAAALSSLAAALALSALALALATLALARATALLELZS 


D38 
RD3% 
e TABLES DECK) 3% 
cl3% 


32 


ADING ON TOP OF A NEW PAGE, 33% 
*])2+85 BY PAGECNT FOR NDIGITSCPAGECNT):&% 
EXTL*I)33% 


Bex PRINTS A SOURCE CODE LINE, 
CNT FOR 5 DIGITS#%& 


IF LINECNT2LINESPERPAGE THEN HEADING32 


IF RESWORDOPTION THENS 
BEGINS 
WRITECLINESENOJ e114 eXUIN 
WRITECLINESLNOJe14eXLIN 
END)% 
WRITECLINESe 1 7eLINEL#) 3% 
. LINECNTSSLINECNT 415% 
END OF PRINTLINESSS 
% 


x 

DEFINE NEWCARD= 

BEGIN 
IF LISTOPTION THEN PRINTL 
IF ERRINX>0 THEN PRINTERR 
READCCARDs10eICARD(*]) CE 


ECe) 23% 
ECS 


Be** READS A NEW SOURCE CODE CARD, 


tNEsS 
ORSI% 
NDOFINPUTIJ4A2 


00000214 
00000215 
00000216 
00000217 
00000218 
00000219 
00000220 
00000221 
00000222 
00000223 
00000224 
00000225 
00000226 


00000227 
00000228 


00000229 
00000230 
00000231 
00000232 
00000233 
00000234 
00000235 
00000236 
00000237 
00000238 
00000239 
00000240 
00000244 
00000242 
00000243 
00000244 
00000245 
00000246 
00000247 
00000248 
00000249 
00000250 
00000251 
00000252 
00000253 
00000254 
00000255 
00000256 
00000257 
00000258 
00000259 
00000260 
00000261 
00000262 
00000263 
00000264 
00000265 
00000266 
00000267 


Se ee ee 


4 + 


AA AHHH HM HHH HAA A ot st a tA Ht A tt 


0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 


0069 
0069 


0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 


0069 


PRT(203) = NABS 
PRT(204) = NSIZE 


PRT(2059 ® GENRE 


STACK¢Fe2) = ABS 


STACK(F 43) # POW 
STACKC(F4+4) « Vi 


CARDPNT#wPOTNTERCICARDE*®) 3% 

REPLACE LINEPNT BY CARDPNT FOR 10 WORDS, * * FOR 6 WORDSES 
REPLACE XLINEPNT BY ™ * FOR 10 WORDSS% 
CHARCNTS#CARDLENGTHSS 


MARGINCNT &e853% 
CARDCNT#eCARDCNT 413% 
END#S2 
x 
% 


DEFINE GENCTeNeSTARTI& See* GENERATE A TEXT “"T%, CONSISTING OF 
BEGIN Reet ON LETTERS» STARTING AT "START", 
IF ALGOLCNT«<N THEN WRITEALGOLIS 
TEXTCO]I(eT3Z 
REPLACE ALGOLPNT#ALGOLPNT By TEXTPNTO+¢START FOR NES 
ALGOLCNTSSALGOLCNT®NSS 
END#SZ 
% 
4 
DEFINE GENIDCLeNUMeNDIG)& 
BEGINS 
IF ALGOLCNTSNDIG THEN WRITEALGOLS2 
CHCOJIaLez 
REPLACE ALGOLPNTSALGOLPNT By CHARPNT FOR 49 NUM FOR NDIG DIGITS32 
ALGOLCNT F®ALGOLCNT@NDIG@133 
END#3S 
4 


Beee GENERATE AN XALGOL IDENTIFIER, 


% 
INTEGER NABSeNSIZES2 


% 
DEFINE GENINTCN)&% 
BEGIN 
NABSteABS(N)$ JF NcO THEN GENCO%o 19705 
NSIZEtsIF NABSS 9 THEN 1 ELSEX 
IF NABSS 999 THEN 3 ELSES 
IF NABSSs 99999 THEN 5 ELSES 
IF NABSS99999999 THEN 8 ELSE 123% 
IF ALGOLCNT<NS|ZE THEN WRyTEALGOLSS 
IF NSYZE"12 THENS 
REPLACE ALGOLPNTIHALGOLPNT By CNABS DIV 1000000) FOR 6 DIGITSe& 
ENTIERCNABS MOD 1000000) FOR 6 DIGITS ELSES 
REPLACE ALGOLPNTSALGOLPNT BY NABS FOR NSIZE DIGITS3% 
ALGOLCNT 8eALGOLCNT#NSIZES¢ 
END OF GENINT#E 
% 


¥ 
PROCEDURE GENREAL(CX)3% 
AL 
VALUE Xs REAL X33 
BEGIN 

REAL ABSX3% 


xX. 
INTEGER POWER, Vi ,V23% 
ER 


00000268 
00000269 
00000270 
00000271 
00000272 
00000273 
00000274 
00000275 
00000276 
00000277 
00000278 
00000279 
00000280 
00000284 
00000282 
00000283 
00000284 
00000285 
00000286 
00000287 
00000288 
00000289 
00000290 
00000291 
00000292 
00000293 
00000294 
00000295 


00000296 
00000297 
00000298 
00000299 
00000300 
00000304 
00000302 
00000303 
00000304 
00000305 
00000306 
00000307 
00000308 
00000309 
00000310 
00000311 
00000312 
00000313 


00000314 
00000315 
00000316 


START OF SEGMENT 


00000317 


0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 


AHH RHA HHH AHH A A A 


0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 


AAA AHA Het tt 


0069 
0069 
0069 


4-4-4 


T 0000 


EERE EE 


STACK(F 45) = V2 
% 
IF X,¢4635)20 THENS 
BEGINg 
IF ALGOLCNT<9 THEN WRITEALGOLES 
TEXTCOJE X38 
REPLACE ALGOLPNTSALGOLPNT BY "*", TEXTPNT FOR Ze PHOS 
PRT(206) = STRN@ REPLACE 
PRT(207) = *#DESTINATION POINTER* 
ALGOLCNT#SALGOLCNT®93% 
END ELSE 
BEGINS 
IF ALGOLCNT<22 THEN WRITEALGOLSS 
IF X<O THEN GENC"C"%1 2,6) 3% 
ABSX#wABSCX) 3S 
{F ABSX>0 THEN 
BEGINS 
WHILE ABSX21@7 DO BEGIN ABSX#mABSX/103 POWERS BPOWERS!) ENDS 
WHILE ABSX<1®@6 DO BEGIN ABSX%sABSXX10)} POWERS #POWER@] ENDS 
Va twmENTIERCABSX 3% 
VOSmENTIERCCABSX*#V1)x1000000)33% 
REPLACE ALGOLPNTtALGOLPNT BY Vi FOR 7 DIGITS» %,%% 
V2 FOR 6 DIGITSs "@"%3¢ 
ALGOLCNTS m#ALGOLCNT&°15323 
IF POWER<O THEN GENC¥"",1,7)3% 
POWER# sABSCPOWER) 3% 
REPLACE ALGOLPNTStALGOLPNT BY POWER FOR 2 DIGITS!#2 
ALGOLCNT&eALGOLCNT™253% 
END ELSE GENC*0%5497)3% 
IF X<O THEN GENC™)%9107)3% 
ENDSS 
END OF GENREALSS% 


+ 4 : 
INTEGER TYPEINDEX#2 
PRT( 2409 ws TYPEINDEX 

3 

DEFINE NEWTYPE@S 

BEGINS 
IF NUMTYPES2MAXTYPES THEN BEGIN ERROR(45)3NUMTYPES!tsMAXTYPES#20 END! 
TYPEINDEXt@NUMTYPESSSNUMTYPES4O1 33 

END #32 

% 


% 
PROCEDURE WRITEALGOLS Zee* WRITES A COMPLETED XALGOL CARD TO 
BEGIN Zee* THE FILE, 
REPLACE POINTERCALGOLCARD(93) BY CARDCNT FOR 8 DIGITS33 
WRITECPASCALGOL® 1 0¢ALGOLCARBE*) 33 
IF DUMPOPTION THEN WRITECLINESs 10+ALGOLCARDE*)) 3% 
ALGOLPNT&@POINTERCALGOLCARD(#J)3 ALGOLCNT&®7453 
REPLACE ALGOLPNT BY " * FOR 9 WORDSSS 
END OF WRITEALGOL}S 


1s 


00000318 
00000319 
00000320 
00000321 
00000322 
00000323 


00000324 
00000325 
00000326 
00000327 
00000328 
00000329 
00000330 
00000331 
00000332 
00000333 
00000334 
00000335 
00000336 
00000337 
00000336 
00000339 
00000340 
00000341 
00000342 
00000343 
00000344 
00000345 
00000346 


105 LONG 


00000347 
00000348 
00000349 


00000350 
00000351 
00000352 
00000353 
00000354 
00000355 
00000356 
00000357 
00000358 
00000359 
00000360 
00000361 
00000362 
00000363 
00000364 
00000365 


44a 


T 
T 
T 
T 
T 
T 
T 
1 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
s 


44-4 


AHH HHA ts 


0000 
0000 
0001 
0001 
0003 
0004 


0013 
0015 
0015 
0015 
0017 
0027 
0028 
0029 
0029 
0037 
0043 
0044 
0047 
0055 
0061 
0062 
0073 
0074 
0078 
0079 
0094 
0101 
0101 
NEXT SEG 


2 


PRT(¢2119 = SKIP 


PRTC212) 5 ERROR 


% 
z 
DEFINE MARGINCLETTER» NUM) &% 
BEGIN COMMENT *** PLACES INFORMATION IN THE MARGIN, 3% 
IF MARGINCNTS118 THEN? 
BEGIN TEXTCOJISLETTERSS 
REPLACE LINEPNT+MARGINCNT BY TEXTPNT45 FOR 20% 
NUM FOR NDIGITSCNUM) 3% 
MARGINCNTSsMARGINCNT+63% 


END3% 
END OF MARGIN@G)S 
% 
% 


PROCEDURE SKIPCSYMBOL)? Ze** SKIP SYMBOLS TO RECOVER FROM ERROR 
VALUE SYMBOLS INTEGER SYMBOLS Se** CONDITION, 
BEGIN2 

WHILE CURSY#SYMBOL AND SYMKIND(ECURSYJ#MIDDLE DO0% 

IF CURSY#RECORDSY THENS 

BEGIN DO BEGIN INSYMBOLIS 

SK{P(99)3% 
END UNTIL CURSY#SEMICOLON AND CURSY#CASESYIS 

END ELSE JNSYMBOL3% 

END OF SKYIP32 


% 
% 
PROCEDURE ERRORCERRNUM) 33% 


VALUE ERRNUMS INTEGER ERRNUM3% 
BEGIN COMMENT *#* ARRANGE ERROR INDICATOR, 38 
NUMERRSSaNUMERRS 413% 
ERReERRNUM) saTRUE 3% 
ERR yNXS$@MAXCERRINXsCARDLENGTH@2°CHARCNT 3% 
IF ERRINXS115 THEN 
BEGIN REPLACE POINTERCERRLINECLIIFERRINX BY "xed 


PRT(213) = *DESFINATION POINTER® 


ERRNUM FOR NDIGITSCERRNUM) 3% 
ERRINXt#ERRINX#CIF ERRNUMS 9 THEN 2 ELSES 
IF ERRNUMS99 THEN 3 ELSE 499% 

END END OF ERROR} : 


% 
% 


PROCEDURE PRINTERRORS3S 


PRT(214) & PRINTERRORS 


BEGIN COMMENT *** PRINT ERROR INDICATORS, 3% 


00000366 
00000367 
00000368 
00000369 
00000370 
00000373 
00000372 
00000373 
00000374 
00000375 
00000376 
00000377 
00000378 
00000379 


000003860 
00000383 
00000362 
00000383 
00000384 
00000385 
00000386 
00000387 
00000388 


00000369 
00000390 
00000391 


00000392 
00000393 
00000394 
00000395 
00000396 
00000397 
00000398 


00000399 
00000400 
00000401 
00000402 


00000403 
00000404 
00000405 


00000406 


Se ee ee ee ee 


ee 


+—1 4 


Oe ee ee ee | 


a4 


0091 
0091 
0091 
0091 
0094 
0094 
0091 
0094 
0091 
0091 
0091 
0091 
0091 
0091 


0091 
009% 
0094 
0093 
0094 
0095 
0096 
0098 
0400 


0100 
0100 
0100 


0100 
0100 
0100 
0102 
0103 
01407 
0108 


0116 
0123 
0126 
0129 


0129 
0129 
0129 


0129 


PRTC2159 
PRT(216) 
PRT(¢217) 


PRT¢(220) 
PRT¢2219 


PRT(222) 


IF NOT LYSTOPTION THEN PRINTLINESS 
WRITECLINESs 17eERRLINEL#) 3% 
LINEGCNTS#LINECNT 442% 
REPLACE POINTERCERRLINEL1372 BY *™ * FOR 16 WORDS32 
ERRyNXI WOES 
END OF PRYNTERRORS3S 


% 
% 
DEFINE HASHCN) w (N),C635436) MOD MAXNAMES#332 
3 


INTEGER THISLEVELe THISTABe THISINDEX33% 
THISLEVEL 
THISTAB 
THISINDEX 
ALPHA THIS]DseTNAMESS% 
THISIO 
TNAME 
BOOLEAN FOUND3% 
FOUND 
% 
DEFINE SEARCHTABCTAB)# Zeee SEARCH NAME TABLE "TAB" FOR THE 
BEGIN Zee6 IDENTIFIER JUST READ, 
THISINDEXt sHASHCCURNAMEY 23% 
TNAME teNAMETABICTABseTHISINDEX 33% 
WHILE CIF TNAME®CURNAMEY THEN NAMETAB2CTABsTHISINDEXJ#CURNAME 22 
ELSE TNAME#0) pox 
BEGINS 
THISINDEX$@ IF THISINDEX#®O THEN MAXNAMES ELSE THISINDEX=43% 
TNAME FBNAMETABLITABs THISINDEX]32% 
EnDs3 
FOUNDS sTNAME#O3% 
IF XREFOPTION THENS 
IF FOUND THEN NEWXREF CCURNAME! eCURNAME2¢TABoFALSE)3S & 
END OF SEARCHTABESS% 
% 
DEFINE SEARCHe 
BEGINS 
THISLEVELSsTOPLEVEL41 5% 
DO BEGINS 
THISLEVELSeTHISLEVEL@4 3% 
THISTABt@IF THISLEVELSCURLEVEL THEN THISLEVELS 
ELSE DISPLAYETHISLEVEL) ,NAMETABSS 


Be*e* SEARCH ALL TABLES CURRENTLY IN USE, 


SEARCHTABCTHISTAB)#2% 
ENO UNTIL FOUND OR THISLEVEL#03% 
THISIDI@NAMETAB3CTHISTABsTHISINDEX) 33% 
END OF SEARCH #3% 
% 


% 
DEFINE NEWNAMECNAMELsNAME2¢ TAB) 2% 
BEGIN eee ENTER A NEW NAME INTO THE NAME TABLE "TAB, 


THISINDEX t@HASHCNAME 4 3% | 
TNAME S@NAMETABICTABeTHISINDEXI]32% 
WHILECIF TNAME®NAMEY THEN NAMETAB2LTABe THIS INDEX) #NAME2S 


00000407 
00000408 
00000409 
00000410 
00000411 
00000412 


00000413 
00000414 
00000415 
00000416 
00000417 


00000416 


00000419 


00000420 
00000421 
00000422 
00000423 
00000424 
00000425 
00000426 
00000427 
00000428 
00000429 
00000430 
00000431 
00000432 
00000433 
00000434 
00000435 
00000436 
00000437 
00000438 
00000439 
00000440 
0000044} 
00000442 
00000443 
000004644 
00000445 
00000446 
00000447 
00000448 
00000449 
00000450 
00000451 
00000452 
00000453 


aaa | 


—_ 


SAA HHH HHH HHH AH A HA tt to to tt 


0129 
0174 
0178 
0179 
0185 
0166 


0186 
0186 
0166 
0186 
0186 


0186 


0186 


0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0166 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 


ELSE TNAME#0) DO% 
BEGINS 
THISINDEXteIF THISINDEX#®O THEN MAXNAMES ELSE THISINDEX*43% 
TNAME S@NAMETABICTABs THISINDEX}3% 
ENDSS 
If TNAME#0 THEN ERROR(2)38 
NAMETABSLTABsTHISINDEX) 3 NAME (3% 
NAMETABOLE TABsTHISINDEX) geNAMEDS2 
IF XREFOPTION THEN NEWXREF CNAME’ »NAMEQ2 TABs TRUE) 3% 
END OF WNEWNAME #38 
x 
x 
PROCEDURE INITIALIZES 
PRTC223) = INITIALIZE 
BEGIN LER ERERER KAR AK EEE 
INTEGER TieT33% 


Seve INITIALIZATION «ex 


STACK(F 42) s& Ti 
STACK (F43) 2 T3 
ALPHA As& 
STACKCF 44) = A 
FILL SYMKIND(E*) WITH 28CMJDDLE) + TERMINAL ® A CMIDOLE)» INITIALs TERMINAL» 


INITIALsMIDDLEe TERMINAL, INITIAL eMIDDLE s INITIAL s TERMINAL INITIAL eS 
MIDDLEeINITIALe2CMIDDLE )eINITIALeMIDDLEs INITIAL ® SCMIDDLE) o&% 
7TCINITIAL) eMIDDLE#% 


FILL SYMBOLC*] WITH 10¢0)2,0,ARROW, 0» COLONs GTRSY » GEQSY oPLUS+9(0) »& 


DoTeL BRACKET» ANDSY*#L PAR, LSSSY »ARROW2009(0) Oe ASTERISK eMINUS SS 
RPAR sSEMICOLON®LEQSY 50 ¢SLASHs8(0) #COMMA 0 sNEQSY sEQLSY pRBRACKET  & 
O,DOUBLEDOT#£ 


LINEPNT twePOINTERCLINEC1I9)3% 
XLINEPNTtaPOINTERCXLINELI) 23% 
REPLACE LINEPNT#8 By * a> ™, * * FOR 16 WORDS 

PRT(224) = *STRING POINTER* 

PRT(225) # *#MESTINATION POINTER* 
REPLACE XLINEPNT@8 BY * * FOR 14 WORDS#3 
REPLACE POINTERCERRLINE([*]) BY "#exe *, " " FOR 16 WORDS3S 
ALGOLPNTtmPOINTERCALGOLCARDE*))$ ALGOLCNT#3743% 
REPLACE ALGOLPNT BY * * FOR 9 WORDS3% 
CHARPNTISPOINTERCCHE *) 473% 
TEXTPNTIERPOINTERCTEXTE#) Dots TEXTPNTOSMTEXTPNT@ 13% 
REPLACE TEXTPNT BY * " FOR 153% 
STRINGPNTS#POINTERCSTRINGC#}) 33% 
REPLACE POINTERCHEADTEXTC#)) BY ™ * FOR 10 WORDS» “PAGE "3% 
REPLACE POINTERCHEADTEXTE#]) BY "PASCALC's EDITION» ")/Be5700%3¢ 
TEXTCOJSeTIME(S 3% 
REPLACE POINTERCHEADTEXT(#))+45 BY TEXTPNT4#3 FOR 20 "/'o% 

TEXTPNT4#41 FOR 20 "/%,- TEXTPNT45 FOR 23% 
TyiweTIME(1)/36008% 
REPLACE POINTERCHEADTEXT(4J9*57 BY (T1 DIV 60) FOR 2 DIGITS» "3%% 
ENTIERCTL MOD 60) FOR 2 DIGITS3% 

HEADINGS 


00000454 T 0186 
00000455 T 01386 
00000456 T 0186 
00000457 T 0186 
00000458 T 0486 
00000459 T 04866 
00000460 T 0486 
00000461 T 0186 
00000462 T 0186 
00000463 T 0186 
00000464 T 0186 
00000465 T 0166 
00000466 T 0186 
00000467 T 0186 
00000468 T 0186 
START OF SEGMENT *#xeeee oe 
00000469 T 0000 
00000470 T Q000 
START OF SEGMENT #48 eee ema ® 
00000471 T 0001 
00000472 T 000; 
00000473 T 0001 
6 IS 62 LONGs NEXT SEG 
00000474 T QO004 
00000475 T 0001 
START OF SEGMENT *#4e eee 8% 
00000476 T 0003 
00000477 T 0003 
00000478 T 0003 
7 18 65 LONGs NEXT SEG 
00000479 T 0003 
00000480 T 0003 
00000481 T 0006 
00000482 T 0009 
00000483 T 0018 
00000484 T 0024 
00000485 T 0033 
00000486 T 0036 
00000487 T 0040 
00000488 T 0043 
00000489 Tt 0049 
00000490 T 0053 
00000491 T 0055 
00000492 T 0064 
00000493 T 0075 
00000494 T 0076 
00000495 T 0087 
00000496 T 0098 
00000497 T 0100 
00000498 T O411 
00000499 T 0115 


INTTYPES mT 33a) 


Zeee INITIALIZE INTRINSIC TYPES» CONSTANTS ETC, **#* 


Zeke “INTEGERS wax 


TiSeNUMERICS T1,SIZESmis T1,STRUCTI@ OZ 


TYPETABICi]beT43 


NEWNAMEC*7INTEGE"» 


TYPETABOC1)¥eeMAXINTS TYPETAB3(1)¢=MAXINTSS 
"R00)4 T3eIDCLASStHeTYPESSS 


NAMETAB3COseTHISINDEX] §u 133% 


REALTYPESeT 31223 
TL, FORMIRFLOATINGS 
NEWNAME("4O0OREAL", 


Bete REAL" een 
TYPETABS(2]taT1i3% 
020)3 T3,IDCLASSI#TYPES3% 


NAMETAB3COeTHISINDEX] &aT 392% 


ALFATYPEt aT 31233 


Zeee MALFAN een 


TL,FORMIRALFAS TYPETABIC 3] seT13% 


NEWNAMEC™GOOALFA%s 


0,0)$ T3,1DCLASSteTYPESSS 


NAMETAB3(LO*eTHISINDEX] tal 33% 


BOOLTYPEtHT3saq3 
T1,FORM#eSYMBOLIC! 


NEWNAMEC"7BOOLEA*> 


Bee "BOOLEAN #40 
TYPETABLC4]teT12 §©6TYPETAB3(4)9"133% 
"N"20)8 T3eIDCLASS#sTYPES33 


NAMETAB3CO*sTHISINDEX] t133% 


CHARTYPESsT3i85$3 


Beem "CHART wae 


Ti,gFORMH#eECHARS TYPETABIC5I]tsT13 TYPETAB3(5]15633% 


NEWNAMEC*4O00CHAR", 


050)3 TI, IDCLASS#tsTYPESs% 


NAMETAB3E Or THISINDEX] te T33% 


T3teBOOLTYPES 13, 


ITOCLASSsscONST3 Rue MFALSEN wae 


NEWNAMEC*5OFALSE%,0,0)3 NAMETAB3CO+THISINDEX) 4eT33% 


T3,INFOt ay! 
NEWNAMEC*GOOTRUE, 
NUMTYPESta53% 
NILTYPES#o13 
EMPTYSET# 223 
NEWNAMEC™6MAXINT™, 
T3,1DCLASS#SCONST3 


Reee UOTRUEW wax 
00)3 NAMETAB3COsTHISINDEXJ3 #1338 


Zeee TYPE OF "NIL" eeu 
Ze%e TYPE OF [J] *#* 
0503 T3teINTTYPES 
T3, INFOS #10243% 


NAMETAB3LO*THISINDEX] taT35% 
NUMCONSTS#@13 CONSTTABL1)SeMAXINTIS 


T3te03 T3,1DCLASS#ePROCS 


FOR Atz*3000GET", 
"AHOOREAD"s 
BEGINS : 
STACKCF4¢5) = *TEMPORARY STORAGE™ 


Bees PROCEDURES ##* 
"ZOOONEW™s "4OOPACK*s "QOOPAGE™s "Z3000PUT",& 


"6READLN » "SORESET%» "6UNPACK™»s "SOWRITE™ DOS 


NEWNAME(A2020)3 NAMETAB3COsTHISINDEX) tT 33% 


ENDs3 


NEWNAME C*7D1SP0S", 


NEWNAMEC®7REWRI Ts 
NEWNAMEC™7WRITEL™ 


T3,1DCLASSImFUNCS 

FOR Ais" 3000ABS"%, 
"GOOEOLN™s 
"AOOSUCCE™» 
*SOTRUNC"s 
"GOOUSER™>» 

DO BEGIN? 

STACK(F 46) 2 * TEMPORARY STORAGE* 


END3% 


"E"™,0)5 NAMETAB3COsTHISINDEX) t=1 33% 
"E2028 NAMETAB3LO,THISINDEX] teT 33% 
*N20)3) NAMETAB3CO+THISINDEX) SmT3E% 


Rexe FUNCTIONS *4%* 
"GARCTAN's "3000CHRs "3000COS*s *Z000E0F Mss 
"Z000EXP™, *2Q000LN%s *30000D0"» "Q00PREDs% 
"SOROUND™s "3000SIN >» "3000SQR"s» "400SQRT"*S 
"6CONCAT™» "AOOTIME"® "GQOODATE"»s “6IOTIME™SS 
"30000RD"8 


NEWNAMECA2000)3 NAMETAB3LCOsTHISINDEXIIET33% 


Zeae MMAXINT cam 


00000500 
00000501 
00000502 
00000503 
00000504 
00000505 
00000506 
00000507 
00000508 
00000509 
00000510 
00000511 
00000512 
00000513 
00000514 
00000515 
00000516 
00000517 
00000518 
00000519 
00000520 
00000521 
00000522 
00000523 
00000524 
00000525 
00000526 
00000527 
00000526 
00000529 
00000530 
00000531 
00000532 
00000533 
00000534 
00000535 
00000536 
00000537 
00000538 
00000539 


00000540 
00000544 
00000542 
00000543 
00000544 
00000545 
00000546 
00000547 
00000548 
00000549 
00000550 
00000551 
00000552 


00000553 
00000554 


AHHH HHH HHH HHH AHA A HA A ot ot to 


Oe lee Bee ee ee ee ee 


0136 
0136 
0136 
0136 
0138 
0142 
0146 
0177 
0179 
0160 
0183 
0210 
0212 
0213 
0216 
0243 
0245 
0246 
0250 
0277 
0279 
0280 
0264 
0311 
0313 
0315 
0342 
0344 
0371 
0372 
0373 
0374 
0400 
0403 
0405 
0407 
0407 
0410 
0420 
0430 


0430 
0468 
04686 
0495 
0522 
0549 
0549 
0551 
0561 
0571 
0581 
0591 
0594 


0595 
0643 


PRT( 2269 
PRT(227) 
PRT(230) 
PRT(231) 
PRT(232) 
PRT(233) 


PRT(234) 
PRT(235) 
PRT(236) 
PRT(2379 


PRT¢240) 


PRT¢241) 
PRT¢2429 


anaes 


NEWNAMEC™7ELAPSE"s"D700)3 
NEWNAMEC™7WEEKDA™® "Y"60)3 


NAMETAB3LOsTHISINDEX] teT33% 
NAMETAB3COsTHISINOEX] ta 133% 


x 
TEXTTYPE Qe T3teNUMTYPESSeNUMTYPESe13 4 Seee MTEXT® exam 
T1 sw TEXTFILES Ti1,STRUCT se 13 TYPETABACTEXTTYPE) t# T13 & 
T3,1DCLASS te TYPES) & 
NEWNAMEC"GOOTEXT%,0,0)5 NAMETAB3[OeTHISINDEX J] $eT35% 
T3teaTEXTTYPES T3,1DCLASSy=VAR3 Zeee MINPUT® wee 
T3,EXTERNALFILES 513% 
NEWNAMEC"SOJNPUT™,0,0)3 yNPUTFILES STHISINDEXSS 
NAMETAB3SCLOeTHISINDEXJ In7 333% 
NEWNAME C*60UTPUT",0,0)3 B¥ee MNOUTPUT! kam 
NAMETAB3LOsTHISINDEX] taT33 OUTPUTFILEteTHISINDEXSS 
END OF yNTIALIZESS 
z 
z 
% 
Zeee = =6XREF ROUTINES #a* 
He ee a a 
z 
DEFINE XREFCARDS(16317]#0% 
XREFBLOCKel 26310) 83% 
; REAL AO,BOsA1sBieLASTAO,LASTAY 3g 
A 
BO 
Al 
B1i 
LASTRO 
LASTAI 
INTEGER NL »LASTBLOCKs Aes AX3% 
NL 
LASTBLOCK 
A2 
AX 
% 
PROCEDURE NEWXREFCNAMEL®NAME2, TABLE sDECLI 3% 
VALVE NAMES *NAME2s, TABLE sDECLEY 
REAL NAMELsNAMEQ)% 
INTEGER TABLES% 
BOOLEAN DECL33 
BEGINS 


NL teNAME1,NAMELENGTHIS 
IF NL<7 THEN NAMELPwORNAME 1741949 26) 8NAMEZE3596XNL9 18 6XNL IE 


DYNAMIC DIALS 


ELSE NAME28 eO&NAME 2 354 6xX(NL"™6)9126XCNL 96) F3 
AX$meCARDCNTS AX,XREFBLOCK#eBLOCKTABLTABLEJ #2 
IF DECL THEN AX #eAX"1000000000008% 
WRITECXREFF ILE» *eNAMEL pNAMEB OD AX) SS 


*LISTs LABEL, OR SEGMENT DESCRIPTOR* 


OUTPUTCW) 
END 


OF NEWXREFSS 


1S 


00000555 
00000556 
00000557 
00000558 
00000559 
00000560 
00000561 
00000562 
00000563 
00000564 
00000565 
00000566 
00000567 
00000568 


797 LONG 


00000569 
00000570 
00000571 
00000572 
00000573 
00000574 
00000575 
00000576 
00000577 


00000578 


00000579 
00000580 
00000581 
000005862 
00000583 
00000584 
00000585 
00000586 
00000587 


00000588 
00000589 
00000590 
00000591 


00000592 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 


SL 


SL 


a4-+-41 


0643 
0670 
0697 
0697 
0699 
0703 
0705 
0732 
0734 
0736 
0762 
0764 
0789 
0792 
NEXT SEG 


0186 
0186 
0186 
0186 
0186 
0486 
0186 
0186 
0166 


0186 


0186 
0186 
0186 
0186 
0186 
0166 
0186 
0186 
0188 


0195 
0202 
0204 
0206 


0218 


% 
PROCEDURE XREFMAX(A)3&% 
PRT( 243) = XREFMAX 
ARRAY Ar0}3% 
BEGINS 
ALOJ8Se"AZZZZZZ"3 «ALL Isa"™7Z7Z2ZZ"4 A218 8999999999938 
END OF XREFMAXS2 


% 

% 

BOOLEAN PROCEDURE XREFCOMPARE(A,B)3¢ 
PRT( 244) & XREF@OMPARE 

ARRAY A,BrlOJs% 


BEGINS 
AOtzAcO]3; BOtmBcO)s ALteAci)s BissBcijss 
XREF COMPARE txZ 


IF A0,035436)#480,035336) THEN A0,(35436)<B0.(35136) ELSES 
IF Al#B1 THEN AL«<B1 ELSER 
IF AO¢BO THEN AO,NAMELENGTH<BO,;NAMELENGTH ELSES 
AC2) LEQ BL224E 
END OF XREFCOMPARESS 


% 
% 
PROCEDURE PRINTXREFCFINIS#A)3% 
PRT(245) ® PRINTXREF 
VALUE FINTS$ BOOLEAN FINIS#S% 
ARRAY Ac0}3% 
BEGINS 
IF FINIS THEN 
BEGINS 
WRITECLINES# 1 7eXREFLINEL*) 23% 
CLOSECLINES) 3% 
CLOSECXREFFILE) 3% 
ENDS 
ELSES 
BEGINS 
AOtsArO)) AltwAC1]3 A2twAL2]3% 
If AO@LASTAO AND A1sLASTAQ AND A2,XREFBLOCK=LASTBLOCK THENS. 
BEGIN? 
IF NUMXREFe15 THENY 
BEGINS 
WRITECLINES oA 7eXREFLINELC*®)23 LINECNTP@LINECNT 413% 
IF LINECNT>LINESPERPAGE THEN HEADINGS 
XREFPNTS@ePOINTERCXREFLINEC*®))% NUMXREF 3 805% 
REPLACE XREFPNT BY * * FOR 17 WORDS3 XREFPNTS#®XREFPNTS2 439% 
ENDS 
REPLACE XREFPNT BY A2,XREFCARD FOR 5 DIGITS#& 
XREFPNTS@XREFPNT473 9 NUMXREFS @NUMXREF O13 


00000595 
00000596 
00000597 
00000598 


00000599 
00000600 
00000601 


00000602 
00000603 
00000604 
00000605 
00000606 
00000607 
00000608 
00000609 
00000610 


00000611 
00000612 
00000613 


00000614 
00000615 
00000616 
00000617 
00000618 
00000619 
00000620 
00000621 
00000622 
00000623 
00000624 
00000625 
00000626 
00000627 
00000628 
00000629 
00000630 
00000631 
00000632 
00000633 
00000634 
00000635 
00000636 


“+ 


4 +3a4—- 


AAAS 


Oe ee eee ee ee ee eee ee ee ae 


PRT(2469 
PRT( 247) 


PRT(250). 


PRT(251) 
PRT(2529 
PRT( 253) 


TT1 
TT2 
Fi 
F2 
LT 
RT 


END ELSES 

IF A2<0 THENG 

BEGINS 
A2twA24+10000000000034% 
WRITECLINESs17eXREFLINEC#I))3 LINECNTSSeLINECNT413% 
IF LINECNT>LINESPERPAGE THEN HEADINGS 
XREFPNTS@ePOINTERCXREFLINEL*) )3 NUMXREF $033 
REPLACE XREFPNT BY ™ # FOR 17 WORDS3% 
TEXTCO]§#A0,(35336)3 LASTAOtwAUSS 
REPLACE XREFPNT BY TEXTPNT+1 FOR AO ,NAMELENGTHSS 
TEXTCOJSSLASTALI MALS 
IF AO,NAMELENGTH>6 THENg 
REPLACE XREFPNT46 BY TEXTPNT#1 FOR AQ, NAMELENGTH#63% 
REPLACE XREFPNT+17 BY Aa,XREFCARD FOR 5 DIGITSS% 
XREFPNTE@XREFPNT+24s LASTBLOCKS®A2, XREFBLOCK3S 

ENDs% 

END3% 
END OF PRINTXREFSS 


% 
% 
% 
INTEGER TTieTT2sFieF2euTeRTES 


% 
DEFINE CHECKTYPESCLEFTTYPEsRIGHTTYPE ) a 
BEGINS 
IF LEFTTYPE>O AND RIGHTTYPE®O THENS 
IF LEFTTYPE#RIGHTTYPE THENS 


BEGIN? 
LTteLEFTTYPE3 RTI®RIGHTTYPES% 
TTLteTYPETABIECLT]3 TTateTYPETABIECRTIS% 
FqtelT1,FORMS F2teTT2,FORMS3 


IF LT#REALTYPE OR F2#NUMERIC THENS 
IFCFIFSET AND LT#EMPTYSET)OR(F2*SET AND RT#EMPTYSET) THENS 
IFCFIFPOINTERS AND LT#NILTYPE )ORCF2#¢POINTERS AND RT#NILTYPE)THENS 


BEGIN? 

IF FieSET AND F2"SET THEN’ 

BEGINS 
LTtaTT1,SETTYPES RTseTT2,SETTYPESS 
TTL SeTYPETABICLT]3 TT2taTYPETABICRTI&y 
FitelTT1, FORMS F2taTT2,FORM3% 

END3S 

IF FisPOINTERS AND F2ePQINTERS THEN? 

BEGINS 


LTsmTTY,POINTTYPES 
TTASBTYPETABICLT)3 
ENDS 


RTPRSTT2,POINTTYPESS 
TT2ZteTYPETABICRTI3% 
F2imTT2,FORM3S 


00000637 
00000638 
00000639 
00000640 
00000644 
00000642 
00000643 
00000644 
00000645 
00000646 
00000647 
00000648 
00000649 
00000650 
00000654 


00000652. 


00000653 
00000654 


00000655 
00000656 
00000657 
00000658 


00000659 
00000660 
00000661 
00000662 
00000663 
00000664 
00000665 
00000666 
00000667 
00000668 
00000669 
00000670 
00000671 
00000672 
00000673 
00000674 
00000675 
00000676 
00000677 
00000678 
00000679 
00000680 
00000681 
00000682 
00000683 


AH HAAS tt 


| 


AANA AMA HH Hy 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


WHILE FisSUBTYPE D0% 


BEGIN LTtmTT1,MAINTYPE? TTpseTYPETABICLTJ$ Fit=TT1,FORM ENDSS 


WHILE FesSUBTYPE DO% 


BEGIN RT&teTTO,MAINTYPES TotwTYPETABYCRTI]3 FotaTT2,FORM ENDIS 


IF LT>0 AND RT>O THEN? 
IF LT#RT THENS © 
IF FL#¥NUMERIC OR FO#NUMERIC THENS 
IF Fi#CHAR OR F2#CHAR THEN ERROR(17)32% 
ENDS 
END} 
END OF CHECKTYPES#3)2 
% 


% 
INTEGER FILENAMESS 
PRT(254) & FILENAME 
BOOLEAN LPARFOUND}S% 


PRT(255) = LPARFOUND 
% 
DEFINE FILEPARAMCOEFAULTFILE)aSee* CHECKS THE FIRST PARAMETER TO SEE 


BEGIN ewe TF TT TS A FILE, 
INSYMBOL3 FILENAMENRCURTYPEIR803% 
LPARFOUNDt#CURSYSLPARSS 
IF LPARFOUND THENS 
BEGIN& 

INSYMBOLI2 
IF CURSYS]DENTIFIER THENS 
BEGINS , 
SEARCHS% 
IF FOUND THEN? 
BEGINS 
IF THISID,IDCLASSeVAR THENS 
BEGINS 
CURTYPE 8=THISID,TYPEIS 
IF TYPETABICCURTYPE),FORM2FILES THENS 
BEGINS 
FILENAME $e 1 O00OxTHISLEVEL+THISINDEXSS 
INSYMBOL3% 
EnD END END ENDS& 
IF SYMKINDECURSYJ®TERMINAL THEN ERROR(46)3% 
END3% 
IF FILENAMERO THEN FILENAMES SDEFAULTFILES® 
IF cFILENAMESINPUTFILE AND NOT INPUTDECL) ORB 
CFLLENAME@OUTPUTFILE AND NOT OUTPUTDECL?) THEN ERROR(96)3% 
END OF FILEPARAM#3S 
% 


% 

; INTEGER TFORM3% 

PRT(2569 = TFORM 
BOOLEAN SIGNEDs NEGATIVES 

PRT(257) = SIGNED 

PRT(260) © NEGATIVE 


% 
DEFINE CONSTANTC(CVALeCTYPE)s Zeee <CONSTANT> #4 
BEGIN LEC E EEE EEE 
IF CURSY#MINUS OR CURSYsPLUS THEN 
BEGIN SIGNED#eTRUES NEGAT,VESsCURSY=MINUSSZ 
INSYMBOL#S% 


00000684 
00000685 
00000686 
00000687 
00000688 
00000689 
00000690 
00000694 
00000692 
00000693 
00000694 
00000695 
00000696 
00000697 


00000698 


00000699 
00000700 
00000704 
00000702 
00000703 
00000704 
00000705 
00000706 
00000707 
00000708 
00000709 
00000710 
00000711 
00000712 
00000743 
00000714 
00000715 
00000716 
00000717 
00000718 
00000719 
00000720 
0000072} 
00000722 
00000723 
00000724 
00000725 
00000726 
00000727 
00000728 


00000729 


00000730 
00000731 
00000732 
00000733 
00000734 
00000735 


ee ee | 


4+ ARAMA AHA ASH att Ht ta Ht 


a ee 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 


0375 
0375 
0375 
0375 
0375 
0375 


END ELSE SIGNEDPeNEGATIVES@FALSESS 
IF CURSY@INTCONST THENS 
BEGIN CTYPESmINTTYPESS% 
CVALt#IF NEGATIVE THEN ®CURVAL ELSE CURVALSS 
END ELSES 
IF CURSY@CHARCONST THENS 
BEGIN IF SIGNED THEN ERROR(P9)3% 
CTYPENRCHARTYPES CVALIBCURVALSS 
END ELSES 
IF CURSYSREALCONST THENS 
BEGIN CTYPESmREALTYPESS 
CVAL¢sIF NEGATIVE THEN *=CURVAL ELSE CURVALS¢ 
END ELSES 
IF CURSY@ALFACONST THENS 
BEGIN IF SIGNED THEN ERROR(29)3% 
IF CURLENGTH>7 THEN ERROR(41)33 
CTYPEt#ALFATYPES CVALS*CURVALSS 
END ELSES 
IF CURSY@IDENTIFIER THENS 
BEGINS 
SEARCHSS 
If FOUND THENSX 
BEGINS 


IF THISIO,IDCLASS#CONST AND NOT BOOLEANCTHISID,FORMAL) THENS 


BEGINS 
IF TYPETABICTHISID, TYPE) e¢FORMSALFA THENS 
BEGINS 
CVALESTHISIDs INFOS 


IF CVAL>1023 THEN CVALteCONSTTABLCVAL#1023)3% 


CTYPE teTHISID, TYPES 

IF SIGNED THENS 

BEGINS 
TFORMISTYPETABICTHISID,TYPE],FORMSS 


IF TFORM#NUMERIC AND TFORM#FLOATING THEN ERROR(29) ELSES 


IF NEGATIVE THEN CVALSa@CVAL3¢ 
END3% 


END ELSE BEGIN ERROR(48)3 CVALISCTYPESs0 ENDSS% 


END ELSE BEGIN ERROR(32)3 CVALSSCTYPES#0 ENDSS 
END ELSE BEGIN ERROR(1)3 GVALS=CTYPES20 END3S2 
END ELSE BEGIN ERRORC32)s CVALIeCTYPEt20 END3% 
INSYMBOL3% 


END OF CONSTANT#SS 


00000736 
00000737 
00000738 
00000739 
00000740 
00000743 
00000742 
00000743 
00000744 
00000745 
00000746 
00000747 
00000748 
00000749 
00000750 
00000751 
00000752 
00000753 
00000754 
00000755 
00000756 
00000757 
00000758 
00000759 
00000760 
00000761 
00000762 
00000763 
00000764 


— 00000765 


00000766 
00000767 
00000768 
00000769 
00000770 
00000774 
00000772 
00000773 
00000774 


00000775 


00000776 
00000777 


AAA AH AHHH HAMAS AH HAH tt HHH a a 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


3% 
% 
a 
% 
% 
% 
3 
3% 
| 
% 
% 
% 
% 
% 
x 
% 
z 
% 
% 
% 
% 
% 
% 
a 
% 
a 
% 
z 
3 
Zz 
z 
% 
% 
% 
% 
% 
% 
3% 
% 
% 
% 
% 
% 
% 
% 
% 
§ 
% 
x 
z 
% 
z 
z 
z 
z 
% 
% 


SYMBOL 


IDENTIFIER 
122 


& AND 


< LSS 
<n LEQ 
>= GEA 
> GTR 
<> NEQ 
= EQL 


PART 31 


tv 1A 


2 


INTERNAL 
NUMBER 


= 
OoOOnN OU Sw Ne 


THE SCANNER, 


aeVZa Pee ean we 


INTERNAL 
NAME 


IDENTIFIER 
INTCONST 
REALCONST 
ALFACONST 
CHARCONST 
NOTSY 
ASTERISK 
SLASH 
ANUDSY 
DIVSY 
MODSY 
PLUS 
MINUS 
ORSY 
LSSSY 
LE@SY 
GESY 
GTRSy 
NE@SY 
FQLSY 
INSY 

LPAR 

RPAR 
LBRACKET 
RBRACKET 
DOUBLEDOT 
COMMA 
SEMICOLON 
DOT 

ARROW 
COLON 
ASSIGNSY 
BEGINSY 
ENDSY 

IF SY 
THENSY 
ELSESY 
CASESY 
OFSY 
REPEATSY 
UNTILSY 
WHILESY 
DOSY 


PELE PREER EERE DET AUTO PAE MS MELEE RREDESASESAEREDABEAD EADS SATSEDRESR ESS 


EXALALABVALAABLALTAZLALATLALZAREAEARLRLATALLSYATALLLSLAATSALASLSLTALZAATS 


SYMBOL 
KIND 


MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDOLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIODLE 
MIDDLE 
MIDDLE 
TERMINAL 
MIDDLE 
MIDDLE 
MIDDLE 
MIDOLE 
INITIAL 
TERMINAL 
INITIAL 
MIDOLE 
TERMINAL 
INITIAL 
MIDDLE 
INITIAL 
TERMINAL 
INITIAL 
MIDDLE 


00000779 
00000780 
00000781 
00000782 
00000783 
00000784 
00000785 
00000786 
00000787 
00000788 
00000789 
00000790 
00000791 
00000792 
00000793 
00000794 
00000795 
00000796 
00000797 
00000798 
00000799 
00000800 
00000801 
00000802 
00000803 
00000804 
00000805 
00000806 
00000807 
00000808 
00000809 
00000810 
00000811 
00000812 
00000813 
00000814 
00000815 
00000816 
00000817 
00000818 
00000819 
00000820 
00000821 
00000822 
00000823 
00000824 
00000825 
00000826 
00000827 
00000826 
00000629 
00000830 
00000831 
00000832 
00000833 
00000834 
00000835 


AA HAH H HHH HS tA A A A AA A A Ht A A A I AH tt A tt ss 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


PRT(261) 


PRT( 262) 
PRT(263) 
PRT( 264) 
PRT(265) 


PRT(2669 
PRT( 267) 


PRT(2700 


aunn 


% FOR 44 FORSY 

z TO 45 TOSY 

% DOWNTO 46 DOWNTOSY 
% GOTO 47 GOTOSY 

% NIL 48 NIUSY 

% TYPE 49 TYPESY 

% ARRAY 50 ARRAYSY 
% RECORD 51 RECORDSY 
% FILE 52 FILESY 

z SET 53 SETSY 

% CONST 54 CONSTSY 
% VAR 55 VARSY 

% LABEL 56 LABELSY 
% FUNCTION 57 FUNCSY 

% PROCEDURE 58 PROCSY 

% WITH 59 WITHSY 

% PROGRAM 60 PROGRAMSY 
% PACKED 61 PACKEDSY 
% 

% 

DEFINE BLANK@48%—_ FQUALSO61#s QUBTESe63#2 DOLLARK G24 s% 


LETTERCC)#(17SC AND C$25)0R(33SC AND CS41)0RC5SOSC AND CS57)#,% 


ALFANUMCC)sC(LETTERCC) OR CS9)#3% 
% 
REAL CURVAL32 
CURVBL 
ALPHA CURNAME1¢CURNAME20CeCX3% 
CURNAME 1 
CURNBME2 
Cc 
cx 
INTEGER CURLENGTH»LASTCHARPOS 33 
CURLENGTH 
LASTGHARPOS 
BOOLEAN FINIS#S 
FINIS 
% 
DEFINE NEXTCHARRS 
BEGIN COMMENT ***® READ NEXT CHARACTER, ***# 3% 
IF CHARCNT®O THEN C8#BLANK ELSE 
BEGIN 


REPLACE CHARPNT BY CARDRPNTICARDPNT FOR 13% 


CimCHL[9O)3 CHARCNTIsCHARCNT#413% 
END END #)% 
z 
% 
% 
PROCEDURE INSYMBOL32 
BEGIN COMMENT *#* READS THE NEXT SYMBOL, #445% 
INTEGER SCALE*EXP3S 


STACK(F4#2) & SCALE 
STACKEF 43) 3 EXP 


BOOLEAN NEGEXP?S 


STACK(F44) = NEGEXP 


LABEL START,OVERFLOWSS 
% 


INITIAL 
MIDOLE 
MIDDLE 
INITIAL 
MIDDLE 
INITIAL 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
MIDDLE 


00000636 
00000837 
00000836 
00000839 
000008640 
000008641 
00000842 
00000843 
00000844 
00000845 
00000846 
00000847 
00000648 
00000849 
00000650 
00000651 
00000852 
00000853 
00000854 
00000855 
00000856 
00000857 
00000858 
00000859 
00000860 


00000661 


00000862 


00000863 


00000664 
00000665 
00000866 
000008667 
00000668 
00000869 
00000870 
00000874 
00000872 
00000873 
00000874 
00000875 
00000876 
00000877 


START OF SEGMENT 


000008786 


00000879 
00000680 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


+4 eH HH aH A st ot st 


+ 


0375 


T 0375 


0375 


T 

T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
T 0375 
* 


Teti retry. 


T 0000 


T 0000 
T 0000 


STARTSS 


IF C#BLANK THEN’ 


BEGIN SCAN CARDPNTSCARDPNT FOR CHARCNTSCHARCNT WHILE = "32% 


PRT(271) = STRNG SCAN 


IF CHARCNT#O THEN BEGIN NEWCARDS GO TO START ENDSS 


PRT(272) = ENDOPYNPUT 
PRT(273) = GO TO SOLVER 
PRT(274) = *DESTINATION POINTER® 


NEXTCHAR3? 


END 3% 


IF LETTER(C) THENZ 


BEGINS 


CURLENGTHi 213 CURNAME1$#C3 CURNAME2$ #033 


NEXTCHARSS 


WHILE ALFANUM(C) AND CURLENGTH<6 00% 


BEGIN CURNAMES §sC&CURNAME1(35329130) 32% 
CURLENGTHS*®CURLENGTH+413 


END3% 


IF CURLENGTH#6 THEN’ 


BEGINS’ 


NEXTCHARSS 


WHILE ALFANUM(C) AND CURLENGTH<12 DOS 
BEGIN CURNAME21t&C&CURNAME2[ 35129130718 
CURLENGTH# sCURLENGTH+13 


ENDS 


WHILE ALFANUM(C) 00 NEXTCHARS2 


END3% 


CURNAME1 »NAMELENGTH# sCURLENGTH3 & 
CASE CURLENGTH OF% 


BEGIN 3% 


PRTC275) = *CASE STATEMENT DESCRIPTOR® 
CURSY te] DENTIFIERIS 


CURSYSaIF 
IF 
IF 
IF 
IF 
IF 
CURSYSSIF 
IF 
IF 
IF 


IF 
CURSY$eIF 
IF 
IF 
IF 
IF 


CURNAME 12" 29000;F" 
CURNAME1="28000D0" 
CURNAME t#"2B000TO" 
CURNAME 4" 260000R" 
CURNAME1#®*26Q0000F" 
CURNAME 1®*"2Q000IN" 
CURNAME 12" 3000END" 
CURNAME 1 &*3Q00F OR” 
CURNAME 1#"3800DIV" 
CURNAME 1 e"3@00M0D" 
CURNAME Y=" 3Q00NIL" 
CURNAME 13"3Q00AND" 
CURNAME {an 3Q800NOT# 
CURNAME {as 3000VAR" 
CURNAME jan 3Q00SET" 
CURNAME{e#3Q00LSS*" 
CURNAME te" 3@00LEQ" 
CURNAME 18" 3900GFQ" 
CURNAME 1 s"3900GTR® 
CURNAME 1="3Q00NEQ" 
CURNAME 1&*3Q00F QL" 
CURNAME 1 8°4B0THEN*® 
CURNAME {er 4Q0ELSE* 
CURNAME 1 ="400WI TH" 
CURNAME1ew4Q0CASE™ 
CURNAME1#"480GOTO" 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


NEXTCHARS 2 


IFSY ELSES 
DOSY ELSES 
TOSY ELSES 
ORSY ELSES 
OFSY ELSES 
INSY ELSE IDENTIFIJER32 
ENDSY ELSES 
FORSY ELSES 
DIVSY ELSES 
MODSY ELSES 
NILSY ELSES 
ANDSY ELSES 
NOTSY ELSES 
VARSY ELSES 
SETSY ELSES 
LSSSY ELSES 
LEQ@SY ELSE 
GEQSY ELSEZ 
GTRSY ELSES 
NEQSY ELSE 
EQLSY ELSE IDENTIFIERS 
THENSY ELSES 
ELSESY ELSES 
WITHSY ELSES 
CASESY ELSE2 
GOTOSY ELSER 


00000681 
00000882 
00000883 


00000884 


00000885 
00000886 
00000887 
00000888 
000008689 
00000890 
00000891 
00000892 
00000893 
00000894 
00000895 
00000896 
00000897 
00000898 
00000699 
00000900 
00000901 
00000902 
00000903 
00000904 
00000905 


00000906 
00000907 
00000908 
00000909 
00000910 
00000911 
00000912 
00000913 
00000914 
00000915 
00000916 
00000917 
00000918 
00000919 
00000920 
00000921 
00000922 
00000923 
00000924 
00000925 
00000926 
00000927 
00000928 
00000929 
00000930 
00000931 
00000932 


AANA HHH HHA Ht tet ot 


See eine ee ee ee | 


0000 
0000 
0000 


0003 


0070 
0078 
0078 
0083 
0084 
0086 
0094 
0102 
0104 
0112 
0113 
0114 
0114 
0123 
0125 
0133 
0134 
0150 
0150 
0152 
0152 


0152 
0154 
0156 
0158 
0160 
0162 
0164 
0167 
0169 
0171 
0173 
0175 
0177 
0179 
0181 
0183 
0185 
0187 
0189 
0194 
0193 
0195 
0198 
0200 
0202 
0204 
0206 


EN 


IF 
IF 
CURSYtSIF 


CURSYts]F 
IF 
IF 


IF 
CURSYtaIF 


CURSYteIF 


CURSYtalF 


CURNAME 12 *400TYPE™ 
CURNAME1*#*#4Q0F ILE® 
CURNAME 1®"*58BEGIN" 
CURNAME 18"5@WHILE” 
CURNAME 1 #*5@UNTIL" 
CURNAME 1a"S5@ARRAY” 
CURNAME 1 #"5@CONST® 
CURNAME 1aeS@LABEL® 
CURNAME 1 e*6REPEAT" 
CURNAME1#"600WNTO® 
CURNAME 1e*6RECORD” 
CURNAME 1 @Y"6PACKED® 
CURNAME 1 s"7PROGRA™ 


CURNAME 1#"8FUNCTI® 


CURNAME 1a 9PROCED" 


THEN TYPESY ELSE 


THEN FILESY ELSE IDENTIFIERS& 


THEN BEGINSY ELSE% 
THEN WHILESY ELSE% 
THEN UNTILSY ELSES 
THEN ARRAYSY ELSES 
THEN CONSTSY ELSE 


THEN LABELSY ELSE IDENTIFIERS 
THEN REPEATSY ELSES 

THEN DOWNTOSY ELSES 

THEN RECORDSY ELSES 

THEN PACKEDSY ELSE IDENTIFIERS% 
AND CURNAME2S*°M" THEN PROGRAMSYS 


ELSE IDENTIFIERSS 


AND CURNAME2*®"0N" THEN FUNCSYS 


ELSE IDENTIFIERS 


AND CURNAME2#"URE”" THEN PROCSYS 


ELSE IDENTIFIERS 


CURSYS@IDENTIFIERS 
CURSY tal DENTIFIERS 
CURSY#e]DENTIFIERS 
D OF CASES 


Z 10 CHARACTERS, 
Z 11 CHARACTERS, 
% 12 CHARACTERS, 


IF RESWORDOPTION ANDO CURSY#IDENTIFIER THENS 
BEGIN Tit*CARDLENGTH*CHARCNT@CURLENGTHSS 

IF CHARCNT#®0 THEN CARDPNTS@CARDPNT4¥1 ELSE TiteTi913% 
REPLACE XLINEPNT+T1 BY CARDPNT#*(CURLENGTH41)% 

FOR CURLENGTH32% 


CURSYisINTCONST3% 


ENDS% 
END OF LETTER ELSES 
IF c¢9 THENZ 
BEGINZ 
CURVALEaC} 
NEXTCHARSS 


WHILE CS9 DO BEGIN CURVAL!=#10xCURVAL4+CS NEXTCHAR ENDS 
IF Cam,” THENS 


BE 


EN 


GINZ 


NEXTCHARSS 

IF CS9 THENS 

BEGIN CURSY!tsREALCONST3% 
DO BEGIN CURVAL# #1 OxCURVAL4C3S 

SCALE S#SCALE™1%3 
END UNTIL C>933 

END ELSE IF Car,” THEN C# 264 

ELSE ERROR(4)33 


DIE 


IF CR"E" THENS 


BE 


GINS 


CURSYteREALCONSTS 
IF Cate" OR Cate" THEN BEGIN NEGEXP#=cw™"s NEXTCHAR END3SS 


IF CS9 THENS 
BEGIN EXPt#C} NEXTCHARSS 
WHILE CS9 DO BEGIN EXP4§s{0xEXP+C3 NEXTCHAR ENDS 


IF NEGEXP THEN EXPE awEXPSE 


END ELSE ERROR(4)32 
SCALE SaSCALEFEXP3S 


NEXTCHARSS 


NEXTCHAR3& 


% SPECIAL MARK FOR ",,” 


00000933 
00000934 
00000935 
00000936 
00000937 
000009386 
00000939 
00000940 
00000944 
00000942 
00000943 
00000944 
00000945 
00000946 
00000947 
00000948 
00000949 
00000950 
00000951 
00000952 
00000953 
00000954 


AAA H HHH st st st 


0208 
0210 
0213 
0215 
0217 
0219 
0221 
0223 
0227 
0229 
0231 
0233 
0236 
0238 
0240 
0243 
0244 
0247 
0249 
0250 
0251 
0252 


START OF SEGMENT eeu eee enue 


9 18 


14 LONGs NEXT SEG 
00000955. T 0253 
00000956 T 0254 
00000957 T 0300 
00000958 T 0306 
00000959 T 0311 
00000960 T 0313 
00000961 T 0313 
00000962 T 0313 
00000963 T 0315 
00000964 T 0315 
00000965 T 0317 
00000966 T 0324 
00000967 T 0336 
00000968 T 0336 
00000969 T 0337 
00000970 T 0344 
00000971 T 0345 
00000972 T 0346 
00000973 T 03486 
00000974 T 0357 
00000975 T 0358 
00000976 T 03690 
00000977 T 0362 
00000978 T 0362 
00000979 T 0363 
00000980 T 0363 
00000981 T 0372 
00000962 T 0383 
00000983 T 0383 
000009684 T 0392 
00000985 T 0404 
00000986 T 0405 
00000987 T 0407 


PRT(276) 


PRT(277) 
PRT¢300) 
PRT¢(301) 


ENDI3 
IF CURSY®REALCONST THENS 
BEGIN? 
REALOVERFLOWS BOVERFLOWSS 
OVERELOW 
CURVAL FSCURVALX10*SCALE3S 
LN 
EXP 
X TO THE | 
REALOVERFLOWSs03% 
END ELSES 
IF CURVAL>MAXINT THENS 
BEGIN’ 
OVERFLOWS ERROR(14)3 CURVAL? «O03 REALOVERFLOW!S 803% 
END? % 
END OF DIGIT ELSES 
IF ceQUOTES THENE 
BEGIN 
CURSYSsALFACONSTS CURLENGTHI #03 NEXTCHARSS 
FINIStsFALSESS 
Do BEGIN? 
IF CeQUOTES THEN BEGIN NEXTCHARS FINISt&C#QUOTES END ELSEZ 
IF CHARCNT#0 THEN BEGIN ERROR(6)8 FINIS#t=TRUE END33% 
IF NOT FINIS THENS 
BEGINS 
REPLACE STRINGPNT#CURLENGTH BY CHARPNT FOR 13% 
CURLENGTHS eCURLENGTH413% 
NEXTCHAR3S3 
ENO END UNTIL FINIS#S 
IF CURLENGTHSO THEN ERRO@R(4) ELSE 
IF CURLENGTH=4 THENS 
BEGIN CURSY&sCHARCONSTi¢ 
REPLACE CHARPNT BY STRINGPNT FOR 13 CURVALE®CHLOJ)3% 
END ELSES 
IF CURLENGTHS7 THENZ 
BEGIN TEXTLO]ta™ w3k 
REPLACE TEXTPNT By STRINGPNT FOR CURLENGTHS2 
CURVALISTEXTLOI3% 
END3& 
END OF STRINGS ELSES 
BEGINZ 
CURSY!IsSYMBOLIC]# NEXTCHARSS® 
IF CURSYsCOLON AND CeEQUAL THENS 
BEGIN CURSYSRASSIGNSY3 NEXTCHAR END ELSES 
IF CURSYsDOT AND Ce,” THENS 
BEGIN CURSYtseDOUBLED@T# NEXTCHAR END ELSES 
IF CURSYSLSSSY AND CeFQUAL THENS 
BEGIN CURSY#sLEQSYs WEXTCHAR END ELSES 
IF CURSYmLSSSY AND Cwer>n THEN 
BEGIN CURSYS#NEQSY3 NEXTCHAR END ELSES 
IF CURSYsGTRSY AND CefQUAL THEN? 
BEGIN CURSY#aGEQSY3 NEXTCHAR END ELSES 
IF CURSY#LPAR AND Cee" THENS 


BEGIN % wee COMMENT #8 
NEXTCHARIS 
IF C#DOLLAR THEN % DOLLAR INDICATES COMPILER OPTIONS, 
DO BEGINS 


00000988 
00000989 
00000990 
00000994 


00000992 


00000993 
00000994 
00000995 
00000996 
00000997 
00000998 
00000999 
00001000 
00001001 
00001002 
00001003 
00001004 
00001005 
00001006 
00001007 
00001006 
00001009 
00001010 
00001011 
00001012 
00001013 
00001014 
00001015 
00001016 
00001017 
00001018 
00001019 
00001020 
00001021 
00001022 
00001023 
00001024 
00001025 


* 00001026 


00001027 
00001028 
00001029 
00001030 
00001031 
00001032 
00001033 
00001034 
00001035 
00001036 
00001037 
00001038 
00001039 
00001040 


~ Asma 


AHA AHH HHH HHH tt st HH A tt A 


0406 
0408 
0409 
0409 


0411 


0414 
0415 
0415 
0416 
0417 
O49 
0419 
0419 
0421 
0422 
0431 
0432 
0432 
0442 
0445 
0445 
0446 
0454 
0452 
0459 
0460 
0462 
0463 
0465 
0468 
0468 
0470 
0471 
0474 
0475 
0475 
0475 
0477 
0485 
0487 
0496 
0498 
0507 
0509 
0518 
0520 
0529 
0531 
0540 
0542 
0542 
0550 
0551 


NEXTCHARS CXteCy NEXTCHARSS 00001041 T 0552 
IF CXs"L" THEN {TF Cel THEN HEADINGS 00001042 T 0567 
ELSE LISTOPTIONteCmE"4+" ELSES 00001043 T 0591 
IF CXs"R"® THEN RESWORDOPTIONE wCaten ELSE 00001044 T 0593 
IF CXw"C* THEN CHECKOPTIONS sCate" ELSE% 00001045 T 0596 
IF CXs"D" THEN DUMPOPTIONE®CaMer ELSES 00001046 T 0599 
IF CXa"X" THEN XREFOPTIONiaCanen ELSE 00001047 T 0602 
IF CXm"A™ THENS 00001048 T 0605 
IF Ca" THEN WRITECPASCALGOLSALIST)& 00001089 T 0606 
ELSE WRITECPASCALGOLeNOALIST) ELSES 00001050 T 0610 
IF CXs"T" THENS 00001051 T 0614 
BEGIN LASTCHARPOS ## CHARCNT © CARDLENGTHSS 00001052 T 0615 
CARDLENGTH# m1 0xCs% . 00001053 T 0617 
NEXTCHARS CARDLENGTHi sCARDLENGTH4C3% 00001054 T 0618 
IF CARDLENGTHS9 OR CARDLENGTH>80 THEN 00001055 T 0627 
BEGIN ERROR(14)3 CARDLENGTH!s72 ENDSS 00001056 T 0629 
CHARCNT § amAX COrLASTCHARPOS#CARDLENGTH®@1 3% 00001057 T 06314 
END3% 00001058 T 0635 
NEXTCHAR3 00001059 T 0635 
END UNTIL CHM, 3% 00001060 T 0642 
FINIS#=FALSE3% 00001061 T 0644 
DO BEGINS 00001062 T 0644 
IF C#te" THEN 00001063 T 0645 
SCAN CARDPNTSCARDPNT FOR CHARCNTICHARCNT UNTIL wer 00001064 T 0645 
IF CHARCNT®0 THEN NEWCARD ELSES 00001065 T 0648 
BEGIN NEXTCHARSS 00001066 T 0715 
WHILE Ca%e® 00 NEXTCHARSS 00001067 T 0723 
FINIS#aCand3g 00001068 T 0732 
END END UNTIL FINTS3% 00001069 T 0733 
NEXTCHARS& 00001070 T 0734 
GO TO START33% 00001071 T O74} 
END OF COMMENTS& 00001072 T 0742 
END$% 00001073 T 0742 
END OF 1NSYMBOLE% ; 00001074 T 0742 
8 1S 754 LONG» NEXT SEG 2 


PRT(302) 
PRT(303) 


PRT¢304) 
PR1(305) 


PRT(6306) 
PRTC307) 


RELAZAAVEREAALALESRAAASASEALLARLARSALTLLSALAALLRALLELALSASEALAALLARALZY 
& 


PART 43 EXPRESSION PARSER, 


3% 
a 
% 
wePae OF eRe Kew aw r 
a 
a 
f 
% 


BR BR BR BE BE aC Be ae 


SENEEAESEUESANES SERASRESEAES ERNE SSSRSASRSAANSATSASUSET SEE AERTS ELSER INS 

4 

PROCEDURE EXPRESSIONS FORWARDS 
EXPRESSION 

PROCEDURE CONCATS 
cONCAT 

% 

ALPHA TEMPSYM3% 
TEMPSYM 

REAL SX3% 


FORWARDSS& 


SX 
INTEGER EXPRLEVELeTX3% 
EXPRULEVEL 
TX , 
4 
DEFINE PUTTEXTCT) 2% 
BEGINS 
IF NUMSYMS@MAXSYMS THEN 
BEGIN ERROR(71)3% 
NUMSYMSt5 413% 
END ELSE NUMSYMS8eNUMSYMS4 152 
SYMTABLENUMSYMS J] ¢8T3% 
END OF PUTTEXT #33 
% 


DEFINE PUTSYM(S)®3% 

BEGINS 
TEMPSYMsmCS)Q1C414536)5% 
PUTTEXTCTEMPSYM) 32% 

END OF PUTSYM #3¢% 

% 

DEFINE PUTCONSTCVAL 2) «& 

BEGINS 
PUTTEXTC 2000000") 3% 
PUTTEXTCVAL)}3 

END OF PUTCONST #38 

% 


DEFINE PUTDUMMY#3% 

BEGINS 
PUTTEXTC™3000000") 5% 

END OF PUTDUMMY #3% 

% 

DEFINE PUTIDCLeNUM,NUMD[G) 5% 

BEGINS 
TEXTCOJse" "8&8 L (35451613% 
REPLACE TEXTPNT#2 BY NUM FOR NUMDIG DIGITS;% 
PUTTEXTCTEXT(0) 933% 

END OF PUTID#s% 


00001076 
00001077 
00001078 
00001079 
00001080 
00001081 
00001082 
00001083 
00001084 
00001085 
00001086 
00001087 
00001088 


00001089 


00001090 
00001091 


00001092 
00001093 


00001094 
00001095 
00001096 
00001097 
00004098 
00001099 
00001100 
00001101 
00001102 
00001103 
00001104 
00001105 
00001106 
00001107 
00003408 
00004409 
00001110 
oo001111 
00001112 
00001113 
00001114 
00001115 
00001116 
00001117 
00001118 
00001119 
00001120 
00001121 
00001122 
00001123 
00001124 
00001125 
00001126 


AA HHA HHH HS 


4 +4 = 


~ 


tt tt tt st tt A tt Ht 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 


0375 
0375 


0375 
0375 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


PRT(310) 8 
PRT(3141) 


PRT(312) 8 


PRT(313) «& 


STACK (F 42) 
STACK (F 43) 
STACK(F 44) 


STACK(F 45) 


STACK(F 46) 
STACK(F 47) 


% 
DEFINE wRITEEXPRa% 
BEGINS 
FOR Tq%e1 STEP ¢ UNTIL NUMSYMS DOg 
BEGINS 
SXtmSYMTABCT1)3 TXteSX,(4196)8% 
IF TX#®0 THEN GENCSXe7.2) ELSES 


IF 1X83 THEN ELSE% 
IF. TX®1 THEN GENCSXe197) ELSES 
BEGINS 


TiGBTL41s SXseSYMTpBlTids% 
IF SX_£4416)70 THEN GENINTCSX) ELSE GENREALCSX)3% 


END ENDS 
NUMSYMS#203¢% 
END OF WRYTEEXPRE3g 
% 
% 
DEFINE CHECKEXPRC(LLIMeULIM) 8% 
BEGINS 
PUTTEXTC™CHECK(%) 38 
EXPRESSIONS 
PUTSYMC™e")3 PUTCONSTCLLIM)33% 
PUTSYM(C™e")5 PUTCONSTCULIM) 32% 
PUTSYMC™e")3 = PUTCONSTCCARDCNT) 33% 
PUTSYMC™)") 3% 
END OF CHECKEXPRE3¢ 
% 
% 
BOOLEAN SIMPLEVARIABLE* INSIDEBRACKETS3% 
SIMPLEVARI ABLE 
INSIDEBRACKETS 
INTEGER NUMPOINTERS3% 
NUMPOINTERS 
% 
PROCEDURE VARIABLES 
VARIABLE 
BEGINS 
INTEGER STARTSYMeLLIMsULIMES 
a STARTSYM 
= LLIM 
= ULIM 
REAL Ts% 
= T 
BOOLEAN INBRACKETsINRECORD3S 
® INBRACKET 
s INRECORD 


LABrl ADDADORg 


STARTSYMS@NUMSYMS4415% 
IF THISLEVEL>CURLEVEL THEN ® VARIABLE IN FIELD LIST OF 
BEGIN % RECORD USED IN WITH*@STATEMENTs 
Trp®DISPLAYCTHISLEVELJ 33% 
Tar*®TeFIRSTWITHSYM3 TS s"T QLASTWITHSYM3S 
FOR T3t*®T4 STEP 1 UNTIL TS DO PUTTEXTCWITHTABET3] 93% 
INRECORDS*®TRUEIS 
INBRACKETI#Q00LEANCT, BRACKETSINWITH)3% 


00001127 
00001126 
00001129 
000014130 
00004133 
00001132 
00001133 
00001134 
00001135 
00001136 
00001137 
00001138 
00001139 
00001140 
00001144 
00001142 
00001143 
00001144 
00001145 
00001146 
00001147 
00001148 
00001149 
00001150 
00001151 
00001152 
00001453 
00001154 
000011355 


00001156 


00001157 
00001158 


00001159 
00001160 


START OF SEGMENT 


00001161 
00001162 


00001163 
00001164 
00001165 
00001166 
00001167 
00001168 
00001169 
00001170 
00001171 
00001172 


T 
T 


ee KKK eH Ee 


met tt tt 


AHA HANA A HA 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 


0375 
0375 


0375 
0375 


0000 
0000 


0000 
0000 
0000 
0001 
0002 
0002 
0003 
0006 
0015 
0016 
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s @ 


@ 
] 
NUMPOINTERSS @NUMPOINTERS#T ,NUMPNTRSINWITHSS 00001173 T 0017 
S1+MPLEVAR] ABLES mF ALSESS 00001174 T 0019 
CURTYPEteT,RECTYPES TtalYPETABICCURTYPE}#% 00001175 T 0019 & 
Go To ADDADDRSS 00001176 T 0022 
END)% 00001177 T 0022 
IF THISLEVEL>1 AND THISLEVEL<CURLEVEL THEN ERROR(5)33% 00001178 T 0022 @ 
CURTYPESRTHISIDsTYPES SIMPLEVARIABLES*®TRUESS 00001179 T 0025 
PUTIDC™V"s LO00xTHISLEVEL+ THIS INDEX? 9) 3% 00001180 T 0027 
INSYMBOLS3 00001181 T 0043  ] 
IF CURSY#LBRACKET OR CURSY*®pOT OR CURSYSARROW THENS 00001182 T 0044 
BEGINS 00001183 T 0047 
S1MPLEVARTABLE YF ALSE SS | 00001184 T 0047 & 
DO BEGINS 00001185 T 0048 
IF CURSYeLBRACKET THENS 00001186 T 0049 
BEGINS 00001187 T 0049 @ 

IF NOTCINBRACKET OR INRECORD) THENS 00001188 T 0050 

BEGIN PUTSYMCPL™); INBRACKETI® TRUE END3% 00001189 T 005! 

DO BEGINS 00001190 T 0060 @ 
TESTYPETABICCURTYPEJ3% 00001191 T 0060 
LLIMISTYPETAB2ECURTYPEJ$ UbLIMS®TYPETAB3LCURTYPE] 3% 00001192 T 0061 
IF TeFORMFARRAYS THEN ERROR(12)3% 00001193 T 0063 & 
IF INRECORD THEN PUTTEXT(" $C) 38 00001194 T 0065 
INSYMBOLES 00001195 T 0072 
IF CHECKOPT]ON THEN CHECKEXPRCLLIMp»ULIM) ELSE EXPRESSIONSS 00001196 T 0072 @ 
CHECKTYPESC(T, INXTYPEsCURTYPE) 3% 00001197 T 0454 
CURTYPESwT,ARRTYPE3SS 00001198 T 0212 
IF INRECORD THENS 00001199 T 0213 @ 
BEGINS 00001200 T 0213 

IF LLIM<O THEN BEGIN PUTSYM(%$")3 PUTCONSTC@LLIM) END ELSE 00001201 T 0214 

IF LLIM>O THEN BEGIN PUTSYMC™=")5 PUTCONSTC LLIM) ENDS 00001202 T 0235 @ 

PUTSYMC™)™)38 00001203 T 0257 

IF TYPETABICCURTYPE)«SIZE>1 THEN? 00001204 T 0265 

BEGIN PUTSYM(™x#)3 PUTCONST(TYPETABILCURTYPE),SIZE) ENDIS 00001205 T 0266 S 
END ELSE IF TYPETABSCCURTYPE),STRUCT>O THEN PUTSYMC™,") 3% 00003206 T 0268 

END UNTIL CURSY#COMMASS 00001207 T 0298 

IF CURSY#RBRACKET THEN? 00001208 T 0299 @ 

BEGIN ERROR(59)% SKkIPCRBRACKET)3& 00001209 T 0300 

IF CURSY*®RBRACKET THEN INSYMBOL3% 00001210 T 0302 
END ELSE INSYMBOLs% 00001211 T 0304 @ 
END OF BRACKETS ELSE® 00001212 T 0305 
IF CURSY®DOT THENS 00001213 T 0305 
BEGINS 00001214 T 0306 @ 

IF NOTCINBRACKET OR INRECORD) THENS 00001215 T 0306 

BEGIN PUTSYMC"E™)3 INBRACKETESTRUE ENDES 00001216 T 0307 

TESTYPETABLECURTYPEJ)S£ 00001217 T 0316 @ 

IF TyFORM#RECORD THEN ERROR(12)3% 00001218 T 0317 

tNSYMBOLI 2 00001219 T 0320 

IF CURSYaIDENTIFIER THENS 00001220 T 0320 6 

BEGINS 00001221 T 0321 
SEARCHTAB(T,RECTAB) 33% 00001222 T 0321 
IF FOUND THENS 00001223 T 0342 ®@ 
BEGINS 00001224 T 0342 

THISIDI@NAMETAB3CT sRECTAB*THISINDEXI3% 00001225 T 0342 

ADDADDR} PUTSYMC M4") 3% 00001226 T 0345 @ 
PUTCONSTCTHISID,INFO)S CURTYPES@THISIDsTYPESS 00001227 T 0352 
END ELSE BEGIN ERRORC1)3 CURTYPEt#O ENDSS 00001228 T 0367 

END ELSE BEGIN ERROR( 923 CURTYPEI#O ENDIS 00001229 T 0369 @ 

@ 


INRECORD$ sTRUESS 
INSYMBOL3% 

ENO OF DOT ELSES 

BEGIN % CURSY*®ARROW 
TIisTYPETABLECURTYPEJ3® 
IF TeFORMBFILES THENS 
BEGINS 

CURTYPESST FILETYPE S% 


IF TYPETABICCURTYPES,STRUCT#O THEN PUTTEXT(® COJ")3% 


END ELSES 
IF TeFORMBTEXTFILE THENS 
BEGINS 
SYMTABCNUMSYMS )teSYMTABCNUMSYMS) & "I" [358516)8% 
PUTSYMC™,")8 PUTTEXTC™LASTCHE) 32 
CURTYPE 3 *CHARTYPE3% 
END ELSES 
IF TeFORM@POINTERS THENS 
BEGIN’ 
IF INBRACKET THEN PUTSYMC™)%)32% 
INBRACKETS®FALSES2 
IF NUMSYMS#2SMaxSyMS THENS 
BEGIN? 
FOR Ty%sNUMSYMS STEP #3 UNTIL STARTSYM DO 
SYMTABCTi +2) ¢eSYMTABCT1)33 
SYMTABLSTARTSYM)im™ MEME 32 
SYMTABLSTARTSYMe1jim™ (Teese 
NUMSYMSt3NUMSYMS423 NUMPOINTERSS =NUMPOINTERS 413% 
INRECORD?®TRUE3% 
END ELSE ERROR(63)3% 
CURTYPE SST ePOINTTYPE32 
END ELSE BEGIN ERROR(12)3 CURTYPE!30 END3% 
INSYMBOLS3 
END OF ARROW3% 
END UNTIL CURSY#¥LBRACKET AND CURSY#00T AND CURSY#ARROWIS 
IF TYPETAB,CCURTYPE] ,STRUCT#O THENS 
BEGINS 
IF INBRACKET THEN PUTSYmwc"J] "93% 
WHILE NUMPOINTERS>09 Dos 
BEGIN PUTTEXTC™*#1)DIV"); PUTTEXTC™ 10220%7)3% 
PUTTEXTC™ T MOD*)s PUTTEXTC™ 1022)")3% 
NUMPOINTERS# @NUMPOINTERS 7133 
END3% 
END33 
END33% 
INS DEBRACKETStm{NBRACKET)%& 
CURMODE taNUMBERIS 
END OF VARIABLE3S 


% 

% 

PROCEDURE PASSPARAMS)S 
PRTC 314) = PASSPARAMS 

BEGIN 


10 I$ 


00001230 
00001231 
00001232 
00001233 
00001234 
00001235 
00001236 
00001237 
00001238 
00001239 
00001240 
00001241 
00004242 
00001243 
00001244 
00001245 
00001246 
00001247 
00001248 
00001249 
00001250 
00001251 
00001252 
00001253 
00001254 
00001255 
00001256 
00001257 
00001258 
00001259 
00001260 
00001261 
00001262 
00001263 
00001264 
00001265 
00001266 
00001267 
00001268 
00001269 
00001270 
00001271 
00001272 
00001273 
00001274 
00001275 
00001276 


AHHH HH HH AM HM HHA A HH A Ht A AA HH AH tt HH A ot 


490 LONGs 


00001277 
00001278 
00001279 


00001280 


T 
T 
T 


t 


0371 
0372 
0372 
0372 
0373 
0374 
0375 
0375 
0377 
0384 
0384 
0388 
0368 
0391 
0404 
0405 
0405 
0408 
0408 
0417 
0417 
0419 
0419 
04214 
0425 
0426 
0428 
0430 
0431 
0434 
0436 
0438 
0438 
0438 
0444 
0443 
0443 
0452 
0453 
0466 
0480 
0481 
0484 
0484 
0484 
0484 
0485 
NEXT SEG 


0375 
0375 
0375 


0375 


STACK¢F 42) 
STACK (F +3) 
STACK (CF 44) 
STACK(F 45) 
STACK(CF +6) 


STACK(FS7) 


INTEGER NPARS»PARAM,PTYPE,P,FIRSTSYMSS 


NPARS 
PARAM 
PTYpPE 
P 
FIRSTSYM 
BOOLEAN FORMALPROC?*CHECK3& 
FORMALPROC 


STACKCF 410) = CHECK 


LABrFL FXITIS 
z 
PUTPDE"V™s 1 000xTHISLEVELS+THISINDEX 2 523% 
PiaTHISID, INFOS 
FORMALPROC t eBOOLEANCTHISIDeFORMALDS% 
NPARSH®PARAMTAB(P]3 PrePe43% 
1F FORMALPROC THEN NPARS8*999932% 
INSYMBOL3S% 
IF CURSY®LPAR THENS 
BEGINS 
PUTSYMC%C(™) 3% 
00 BEGINS 
INSYMBOL3% 
1F NPARS#O THEN BEGIN ERROR(3)3 SKIPCRPAR)S GO TO EXIT END? 
PARAM$mPARAMTABCPI]3 PtaPsi3% 
PTYPEtm@PARAM,PARAMTYPES 8 
IF PARAMsPARAMKINDsCONST THENS 
BEGINS 
CHECK? *CHECKOPTION AND TYPETABIEPTYPEJ,FORM LEQ CHAR3% 
IF CHECK THEN PUTTEXTE"CHECK( "93% 
PUTDUMMY; FIRSTSYMssNUMSYMS 32% 
EXPRLEVELt®EXPRLEVEL+G3 3% 
EXPRESSIONS EXPRLEVELS*EXPRLEVEL@1 5% 
IF CURMOpDE®BITPATTERN THENS 
BEGIN SYMTABLCFIRSTSyMjte"™ REALC™S PUTSYMC™)")3 ENDSS 
IF CHECK THENS 
BEGIN 
PUTSYM(™e")$ PUTCONSTCTYPETABOLPTYPEJ)3% 
PUTSYM(™e™)3 PUTCONSTCTYPETAB3CPTYPE] )3% 
PUTSYM(Me%)s PUTCONSTCCARDCNT)$ PUTSYMC™)")3% 
ENDs% 
END ELSE% 
IF PARAMsPARAMKIND®VAR THENS 
BEGIN? 
IF CURSYSIDENTIFIER THENS 
BEGINS 
SEARCHI2 
IF FOUND THEN? 
BEGINS 
IF THISID,IDCLASS&VAR ORS 
TIS CUOELASeSCONST AND BoOLEANCTHISIDeFORMAL) THENS 
BEGIN 
IF PARAMePARAMFILE®4 THENS 
BEGINS 
CURTYPESSTHISIDs TYPES% . 
PUTIDC"V"s 1QO0OxXTHISLEVEL+THISINDEX®5)$ PUTSYMC™s") 3% 
PUTIDC"F™s100@XTHISLEVELSTHISINDEX+523 PUTSYMC™,")9% 


00001281 


START OF SEGMENT 


00001282 


00001263 
00001284 
00001285 
00001286 
00001287 
00001288 
00001289 
00001290 
00001291 
00001292 
00001293 
00001294 
00001295 
00001296 
00001297 
000013298 
00001299 
00001300 
00001301 
00001302 
00001303 
00001304 
00001305 
00001306 
00001307 
00001308 
00003309 
00001310 
00001311 
00001312 
00001313 
00001314 
00001315 
00001316 
00001317 
00001318 
00001319 
00001320 
00001324 
00001322 
00001323 
00001324 
00001325 
00001326 
00001327 
00001328 
00001329 


T 


KKK EEE HH 


AA BHA BMH N AHHH HH tt HH tt ot te 


0375 


0000 


0000 
0000 
0000 
0016 
0018 
0019 
0021 
0023 
0023 
0024 
0024 
0033 
0034 
0034 
0037 
0040 
0041 
0042 
0043 
0045 
0052 
0060 
0061 
0063 
0064 
0075 
0075 
0076 
0096 
0117 
0146 
0146 
0146 
0147 
0148 
0149 
0149 
0178 
01786 
0478 
0180 
0162 
0183 
01864 
0184 
0186 
0210 


PRTC315) & 


STACK ¢F 42) 
STACK(F 43) 
STACK(F ea) 
STACKCF #5) 


STACKCF 46) 


PUTIDCO™ 1%, 1000xTHISLEVELS+THISINDEXs5) 5% 
INSYMBOLS3 
END ELSES 
BEGINS 
VARIABLE3% 
IF TYPETABICCURTYPE),STRUCT>0 THENS 
Le NON SIMPLEVARIABLE THEN ERROR(92)3% 
END$ Se 
END ELSE BEGIN €RRORC8)3 CURTYPES#0 END3% 
END ELSE BEGIN ERRORC1)3 CURTYPES*0 ENDS 
END ELSE BEGIN ERROR(9)) CURTYPEt#O END3S 
END ELSES 
BEGIN? 
IF CURSYeIDENTIFIER THENS 
BEGINS 
SEARCH}% 
TF FOUND THEN’ 
BEGINS 
IF THISITDse LDCLASS#PARAM,»PARAMKIND THEN ERROR(9193% 
PUTIDO"V"s LOOOXTHISLEVELSTHISINDEX #5) 3% 
CURTYPEIFIF THISIDeIDCLASS=FUNC THEN THISID,TYPE ELSE 03% 
INSYMBOL3S 
END ELSE BEGIN ERROR( 123 CURTYPEteO ENDS 
END ELSE BEGIN ERROR(9)3 CURTYPEt&0 ENDS 
ENDS% 
CHECKTYPES(PTYPE*CURTYPE) 3% 
NPARSt®NPARS@133 
IF CURSY*COMMA THEN PUTSYM(%e%) 3% 
END UNTIL CURSY#COMMA33 
IF CURSY*#RPAR THEN BEGIN ERRORC89)3 SKIPCRPAR) ENDS 


EXIT PUTSYMC™ 9%) 3% 


IF CURSY®RPAR THEN INSYMBOL3% 
END 3% 
IF NPARS>O AND NOT FORMALPROC THEN ERROR(3)3% 
CURMOpE teNUMBERSS 


END OF PASSPARAMS3¢ 


% 
% 
PROCEDURE FACTOR} Zeke FACTOR uw 
FACTOR 
BEGIN Sek ee 
INTEGER STARTSYMsSTYPE STI 
a STARTSYM 
a STY¥PE 
= T 
BOOLEAN FIRSTI% 
® FIRST 
REAL VALS3 
= VAL 
z 


DEFINE PARAMETER® Beee CHECK THAT THE FUNCTION HAS 1 PARAM, 


BEGINZ 


11 18 


00001330 
00001331 
00001332 
00001333 
00001334 
00001335 
00001336 
00001337 
00001338 
00001339 
00001340 
00001341 
00001342 
00001343 
00001344 
00001345 
00001346 
00001347 
00001348 
00001349 
00001350 
00001351 
00001352 
00001353 
00001354 
00001355 
00001356 
00001357 
00001358 
00001359 
00001360 
00001361 
00001362 
00001363 
00001364 
00004365 


414 LONG 


00001366 
00001367 
00001368 


00001369 
00001370 


START OF SEGMENT 


00001371 
00001372 
00001373 


00001374 
00001375 


T 
tT 


a ssa a asa a se a a a a a ae a ss 


0234 
0250 
0251 
0251 
0251 
025e 
0253 
0256 
0256 
0258 
0260 
0262 
0262 
0262 
0263 
0263 
0292 
0292 
0292 
0295 
0312 
0316 
0317 
0319 
0321 
0321 
0380 
0381 
0390 
0391 
0394 
0401 
0403 
0403 
0406 
0407 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


1g ee Ek 


4+ 


0000 
0000 
0000 


0000 
0000 


2 


le 


INSYMBOLS2 

IF CURSYsLPAR THENS 

BEGINS 
PUTSYMc¢Mc(")3 > INSYMBOLS EXPRESSIONS? 
IF TYPETAB{CCURTYPE) sFORM@NUMERIC THEN CURTYPESRINTTYPESS 
IF CURSY#RPAR THEN BEGIN ERRORC3)5 SKIPCRPAR) ENDS 
PUTSYMC™)")3 IF CURSYSRPAR THEN INSYMBOLS% 

END ELSE ERROR(3)3% 

END OF PARAMETER#3% 


CURMODE § ®NUMBER3& 
IF CURSY®IDENTIFIER THENS 
BEGINS 
SEARCHSS 
IF FOUND THEN® 
' BEGINS 
IF THISID,JOCLASS®VAR OR% 
THISIO,IOCLASS®CONST AND BOOLEANC(THISID,FORMAL)S 
THEN VARIABLE ELSES 
IF THISIDsIDCLASS™CONST THENS 
BEGINS 
IF THISIDe INFOS1023 THEN PUTCONSTCTHISID,INFO)% 
ELSE PUTCONSTCCONSTTABLTHISIDsINFO"1023))3 
CURTYPEMBTHISIDeTYPeEs CURMODESSNUMBERSS 
INSYMBOL3S 
END ELSES 
IF THISID,IDCLASS#FUNC THENE 
BEGINS 
IF THISTABS0Q THEN Saux INTRINSIC FUNCTION «aus 
BEGINS 
INTEGER DUMMY3% 
PRTC316) ® «SEGMENT DESCRIPTOR® 


STACKCFe7) = DUMMY 
IF CURNAME1#="3000,B8" THEN % "aps 
BEGINS 
PUTTEXT(™ ABSw)} PARAMETERS 
IF CURTYPEFREALTYPE ANDO CURTYPE#INTTYPE THEN ERRORC67)33% 
EnD ELSES 
IF CURNAMELE”"3000CHR” THEN % "CHR® 
BEGINS 
INSYMBOLS2 
IF CURSY®LPAR THENS 
BEGIN INSYMBOL$ CHECKEXPR(0263)3% 
IF TYPETABLECURTYPE) eFORM#NUMERIC THEN FRROR(67)3% 
IF CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDIS 
IF CURSYsRPAR THEN INSYMBOL3SS 
END ELSE ERROR(58)3% 
CURTYPE 8 sCHARTYpPESS 
END ELSE 
IF CURNAMEI®"3000E0F" OR % "EOF™/"E OLN" 
CURNAMEL®"GQQEQOLN" THENS 
BEGINS 
FIRST#tSCURNAME Le" 3000E0F "3% 
FILEPARAMCINPUTFILE) 3% 
PUTIDOM Ee FILENAME 29) 5% 
PUTTEXTCIF FIRST THEN * EOF" ELSE ™ ,FOLN") 32 


00001376 
00001377 
00001378 
00001379 
00001380 
00001381 
00001362 
00001383 
00001384 
00001385 
00001386 
00001387 
00001388 
00001389 
00004390 
00001394 
00001392 
00001393 
00001394 
00001395 
00001396 
00001397 
00001398 
00001399 
00001400 
00001401 
00004402 
00001403 
00001404 
00001405 
00001406 


START OF SEGMENT 


00001407 
00001408 
00001409 
00001410 
00001411 
00001412 
00001413 
00001414 
00001415 
00001416 
00001417 
00001418 
00001419 
00004420 
00001421 
00001422 
00001423 
00001424 
00001425 
00001426 
00001427 
000014268 
00001429 


AHA HAMM HAM HHA tt st tt HH 


RHEE KEK KE 


AA HAHAH Ht tH A AH Ht 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0004 
0002 
0031 
0034 
0031 
0033 
0035 
0036 
0038 
0038 
0054 
0068 
0070 
0074 
0071 
0073 
0073 
0074 
0074 


0000 
0000 
0001 
0036 
0039 
0039 
0040 
0041 
0041 
0042 
0120 
0122 
0125 
0127 
0128 
0129 
0129 
0130 
0131 
0132 
0133 
0186 
0201 


IF LPARFOUND THEN 
BEGINS 


IF CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) END3% 


IF CURSY*®RPAR THEN INSYMBOL3S 
ENDs3 
CURTYPE?*BOOLTYPE3% 
END ELSES 
IF CURNAME1®"3000000" THEN % "ODD" 
BEGINS 
PUTTEXTC(" ODD"); PARAMETERSS 
IF CURTYPE#INTTYPE THEN ERROR(67)3% 
CURTYPEt=BUOLTYPES CURMODES SBI TPATTERNSS 
END ELSES 
IF CURNAME1#"30000RD" THEN % "ORD" 
BEGINS 
PUTSYMC™(")3) I NSYMBOLI% 
IF CURSYSLPAR THENS 
BEGINS 
INSYMBOLS EXPRESSTON)% 
IF TYPETABLECURTYPE],FORM>CHAR THEN ERROR(67)32 
IF CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 
INSYMBOL3S 
END ELSE ERROR(58)3% 
CURTYPES@INITYPES PUTSYMCH D3 
END ELSES 
IF CURNAMEL®"400PRED” OR % "PRED"/"SUCC# 
CURNAMEL®"400SUCC” THEN’ 
BEGINS 
FIRST&t®CURNAME Le" 4OOPRED"3% 
PUTTEXTC™CHECK(C™)3; INSYMBOLSS 
IF CURSY®LPAR THENS 
BEGINS 
INSYMBOLS EXPRESSIONS2 
PUTSYMC(IF FIRST THEN """ ELSE "o")3 PUTSYM(™1%9 38 
IF TYPETABLCCURTYPEJ,FORM>CHAR THEN ERROR(67)3% 
PUTSYM(e")5 PUTCONSTCTYPETAB2LCURTYPE 33% 
PUTSYMC™e™)3 PUTCONSTCTYPETAB3ECCURTYPE])3% 
PUTSYMC eo") 3) =PUTCONSTCCARDCNT)32 
PUTSYMC™) 93% 
IF CURSY#FRPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 
IF CURSY*RPAR THEN INSYMBOL3% 
END ELSE BEGIN ERROR(58)3 CURTYPES#®0 END3S% 
END ELSES 
IF CURNAMEL®"*50ROUND” THEN % "ROUND® 
BEGINS 
PUTTEXTC™ ROUND")3 PARAMETERS 
IF CURTYPE#REALTYPE THEN ERROR(67)3% 
NUMSYMS&@NUMSYMS=y3 PUTSYMc e238 
PUTCONST(CARDCNT)$ PUTSYMC#) "23% 
CURTYPES@INTTYPESS 
END ELSES 
IF CURNAME1®"3000SQR" THEN ® "SQR" 
BEGINS 
PUTTEXTC(" SQR")3; PARAMETERS% 
NUMSYMS|MNUMSYMS"15  PUTSYM( "758 
PUTCONST(CARDCNT)$ PUTSYMC™)") 3% 


IF CURTYPE#REALTYPE AND CURTYPEMINTTYPE THEN ERROR(67)3% 


00004430 
00001431 
00001432 
00001433 
00001434 
00001435 
00001436 
00001437 
00001438 
00001439 
00001440 
00001444 
00001442 
00001443 
00001444 
00001445 
00001446 
00001447 
00001446 
00001449 
00001450 
00001454 
00001452 
00001453 
00001454 
00001455 
00001456 
00001457 
00001458 
00001459 
00001460 
00001461 
00001462 
00001463 
00001464 
00001465 
00004466 
00001467 
00001468 
00001469 
00001470 
00001471 
00001472 
00001473 
00001474 
00001475 
00001476 
00004477 
00001478 
00001479 
00001480 
00001481 
00001482 
00001483 
00001484 
00001485 
00001486 


MAHAN HHH A Ht HH AA Ht ot ot tt tt a ss It 


0209 
0209 
0209 
O212 
0214 
0214 
0215 
0215 
0216 
0219 
0254 
0256 
0256 
0258 
0259 
0259 
0269 
0269 
0270 
0271 
0274 
0276 


0277. 


0276 
0286 
0286 
0288 
0289 
0289 
0290 
0299 
0299 
0300 
0301 
0319 
0321 
0342 
0363 
0364 
0392 
0394 
0396 
0396 
03968 
0399 
0400 
0435 
0437 
0446 
0467 
0467 
0467 
0469 
0469 
0504 
0513 
0534 


END ELSES 

IF CURNAME1="50TRUNC™ 

BEGINS 
PUTTEXTC™ TRUNCH)3 
NUMSYMSt#@NUMSYMS?43 
PUTCONSTCCARDCNT)3 
IF CURTYPE#REALTYPE 
CURTYPEISINTTYPE3S 

END ELSES 

IF CURNAME L#"6CcONcAy" 

CONCAT ELSES 

IF CURNAME1="400T Mee 

BEGINS 
PUTTEXTC*CTIMECH)3 
CURTYPES@REALTYpES 

END ELSES 

IF CURNAME1L="400DATE” 

BEGINS 
PUTTEXTC™CURDAT™) 3% 
CURTYPEN®ALFATYPES 

END ELSES 

IF CURNAME Le" 7FLaPSe* 

BEGINS 
PUTTEXTC™CTIMECW)3 
CURTYPEREREALTYPES 

END ELSES 

IF CURNAMELS"610TIME™ 

BEGINS 
PUTTEXTC"CTIMECH)3 
CURTYPES ®REALTYPES 

END ELSES 

IF CURNAMEL®”"7WEEKDA” 

BEGINS 
PUTTEXTC"WEEKDA™) 3% 
CURTYPERSALFATYPES 


THEN B "TRUNC® 


PARAMETERSS 
PUTSYMC 5) 3% 
PUTSYMC >) 3% 
THEN ERROR( 679338 


THEN & "CONCAT" 
THEN 2 "TIME" 
PUTTEXT(%4)/60)")3% 
INSYMBOL3S 

THEN ® "DATE" 
INSYMBOLS% 


AND CURNAME28"p" THEN % "ELAPSED" 


PUTTEXT(™2)/60)")3% 
INSYMBOL3% 


THEN ; &’ "IOTIME® 


PUTTEXT("™3)/60)")35% 
INSYMBOLs% 


AND CURNAME2®"Y" THEN % "WEEKDAY" 


INSYMBOLSS 


END ELSE IF CURNAME;s"400USER® THEN % "USER 


BEGIN 
PUTTEXT(™ TIME); 
CURTYPES®ALFATYPES 
END ELSE 
BEGIN 


PUTTEXTCIF CURNAME1*®"3000SIN® 
IF CURNaAME1®"3000C05" 
IF CURNAME1S"6ARCTAN" THEN "ARCTAN” ELSES 
IF CURNaAMELS™G00SORT" THEN ™ SORT” ELSES 
IF CURNAME1e"3000EXP" THEN * EXP*® ELSEX 


PUTTEXAT(™ (49% )3% 
InSYMBOL 3% 


B"SIN"e"COS” ETC, 


y LN@)3% 


PARAMETER}2 


IF CURTYPE#REALTYPE AND CURTYPE#INTTYPE THEN ERROR(67)3% 


CURTYPES®REALTYPE 3% 
END32% 


END OF INTRINSIC FUNCTIONS ELSES 


PRTC317) ® «SEGMENT DESCRIPTOR*# 


BEGINS 
TESTHISIO,TYPES% 
PASSPARAMS33% 


THEN * SIN” ELSES 
THEN * COS" ELSES 


13 158 


00001487 T 0537 
00001488 T 0537 
00001489 T 0536 
00001490 T 0538 
00001491 T 0573 
00001492 T 0582 
00001493 T 0603 
00001494 T 0605 
00001495 T 0605 
00001496 T 0605 
00001497 T 0607 
00001498 T 0608 
00001499 T 0640 
00001500 T 0611 
00001501 T 0625 
00001802 T 0626 
00001503 T 0626 
00001504 T 0629 
00001505 T 0630 
00001506 T 0637 
00001507 T 0638 
00001508 + 0638 
00001509 Tt 0642 
00001510 T 0643 
00001513 T 0657 
00001512 T 0658 
00001513 T 0658 
00001514 T 066! 
00001515 T 0662 
00001516 T 0676 
00001517 T 0677 
00001518 Tt 0677 
00001519 T 0681 
00001520 T 0682 
00001521 T 0689 
00001522 T 0690 
00001523 T 0693 
00001524 T 0694 
00001525 T 0708 
00001526 T 0709 
00001527 T 0709 
00001528 T 0712 
00001529 T o7i2 
00001530 T o712 
00001531 7 O712 
00001532 T O712 
00001533 T O712 
00001534 T 0727 
00001535 T 0765 
00001536 T 0768 
00001537 T 0769 
00001538 T 0769 
784 LONG» NEXT SEG 
00001539 T 0076 
00001540 T 0076 
00001541 Tt 0077 


CURTYPE tat 32 
ENDS 
END OF FUNCTIONS ELSES 
IF THISID,IDCLASSePROC THEN 
BEGINS 
ERROR(C68)3 PASSPARAMS3% 
CURTYPE1#03% 
END ELSE BEGIN ERRORC69)3 CURTYPES #03 INSYMBOL ENDS 
END ELSE BEGIN ERRORC1)3 CURTYPES #03 INSYMBOL ENDS 
END OF IDENTIFIER ELSESR 
IF CURSYSCHARCONST THENS 
BEGINS 
CONSTANTCVALeCURTYPE)2 PUTCONSTCVALI32 
END ELSES 
IF CURSY@NOTSY THEN 
BEGINS 
PUTTEXTC™ NOT ")3 PUTDUMMYS STARTSYMs®NUMSYMS3 & 
INSYMBOLS FACTOR3% 
IF CURTYPE>0 THENS 
If CURTYPE#BOOLTYPE THEN BEGIN ERROR(C17)3 CURTYPE#30 END} 
Ip CURMODESNUMBER THENS 
BEGIN SYMTABELSTARTSYM] ta” BC™S PUTSYMC%)%) 32 
CURMODE SBI TPATTERNSS 
ENDS 
END ELSES 
IF CURSYsNILSY THENS 
BEGINS 
PUTCONSTCO)3 CURTYPES®NILTYPE33% 
INSYMBOL}4% 
END ELSE% 
IF CURSY®LPAR THENS 
BEGIN? 
PUTSYMC™C™ 93% 
INSYMBOLS EXPRESS]ONS2 
If CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 
PUTSYME™)& DEX 
INSYMBOL33 
END ELSES 
IF CURSY@LBRACKET THEN 
BEGINS 
INSYMBOL3% 
IF CURSY®RBRACKET THENS 
BEGINS 
PUTCONSTCO)3 CURTYPES®EMPTYSETS CURMODES *NUMBER3 3 
INSYMBOLSS 
END FLSE% 
BEGINS 
FYRSTisTRUESS 
DO BEGINS 
IF FIRST THEN FIRSTy@EALSE ELSE INSYMBOL33 
PUTTEXT(™ BITC™)$ STARTSYMS*NUMSYMS3 2 
EXPRESSIONS® 
IF STYPEFO THENS 
BEGIN STYPES*®CURTYPE3& 
IF TYPETABILCCURTYPE),FORM>CHAR THEN ERROR(72)33 
FNp ELSE CHECKTYPESCSTYPE sCURTYPE 3% 
IF CURSYepOUBLEDOT THENS 


Baee SET CONSTANT 4m 


00001542 
00001543 
00001544 
00001545 
00001546 
00001547 
00001548 
00001549 
00001550 
00001551 
00001552 
00004553 
00001554 
00001555 
00001556 
00001557 
00001558 
00001559 
00001560 
00001561 
00001562 
00001563 
00001564 
00001565 
00001566 
00001567 
00001568 
00001569 
00001570 
00001571 
00001572 
00001573 
00001574 
00001575 
00001576 
00001577 
00001578 
00001579 
00001580 
00001581 
00001582 
00001583 
00001584 
00001585 
00001586 
00001587 
00001588 
00001889 
00001590 
00001591 
00001592 
00001593 
00001594 
00001595 
00001596 
00001597 
00001598 
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0078 
0079 
0079 
0079 
0080 
0061 
0082 
0083 


— 0085 


0088 
0088 
0089 
0090 
0190 
0190 
0191 
0192 
0206 
0207 
0206 
0211 
0212 
0223 
0224 
0224 
0224 
0225 
0226 
0239 
0239 
0239 
0241 
0241 
0249 
0250 
0252 
0260 
0260 
0260 
0262 
0262 
0263 
0263 
0264 
0279 
0279 
0279 
0260 
0280 
0261 
0283 
0290 
0290 
0291 
0292 
0295 
0356 


PRT(320) = 


STACK(F 42) 
STACKCF 43) 
STACK¢F 44) 
STACK¢CF 45) 
STACK(F +6) 


END 


3% 


z 
PROC 


TERM 


BEG] 


STARTSY 
MODE 
TYPE4 
MULOPTR 
F 


BEGINE 
PUTSYMC%e")3 SYMTABECSTARTSYM] ta" BITSC SS 
INSYMBOL? EXPRESSIONSS 


IF STYPE®0 THENS 
BEGIN STYPES®CURTYPES% 

IF TYPETABICCURTYPEJsFORM>CHAR THEN ERROR(72)33 
END ELSE CHECKTYPESCSTYPE »CURTYPE) 3% 


ENDS% 
PUTSYMC™s")3 > PUTCONSTCCARDCNT)3 PUTSYMC™) "73% 
IF CURSY=CcOMMA THEN PUTTEXTC” OR")3% 


END UNT TL CURSY#COMMASS 
1fF CURSY#RBRACKET THEN 
BEGIN ERROR(59)3 SKIPCRBRACKETI&% 
IF CURSYSRBRACKET THEN INSYMBOL3S 
END ELSE INSYMBOL#3% 


NEWTYPES TiesSET$ TyeSIZEsF13) Ti ,STRUCTI#0O32% 
TUASETTYPES®STYPES TYPETABILTYPEINDEXJ 317192 
CURTYPES®TYPEINDEX3% 
CURMODE sBI TPATTERNS% 

END3% 


END OF SET CONSTANT ELSE REGIN ERRORC99)3; INSYMBOL ENDSS 
OF FACTOR: 


EDURE TERM? Zeon TERM wm 


N Pererrerr ys. 
INTEGER STARTSYMsMODE*TYPELSMULOPTReF 3% 


M 

PUTDUMMYS = STARTSYMtSNUMSYMS 5% 

FACTORS% 

MODES SCURMODE 3% 

WHILE CURSY2ASTERISK AND CURSYSMODSY DO & "H™o™/*e"DIT Ve "MODs MAND" 
BEGINS 


TYPELIECURTYPES MULOPTRIBCURSY]% 
FS®TYPETABLETYPELJ »FORM)% 
Ip FeNUMERIC OR FRFLOATING THENS 
BEGIN2 
MODE taNUMBERS 
IF CURSYsASTERISK THEN PUTSYM("X") ELSES 
IF CURSYsSLASH THEN PUTSYMC"/") ELSES 
IF CURSY#ANDSY THEN ERROR(C 64) ELSES 
BEGINS 
IF F®FLOATING THEN ERROR(64)5% 
IF CURSYSDIVSY THEN PUTTEXTC" 
END END ELSE% 
IF CURTYPE*BOOLTYPE OR F®SET THENS 


DIV") ELSE PUTTEXTC™ 


12 15 


START OF SEGMENT 


00001599 T 0356 
00001600 T 0357 
00001601 T 0366 
00001602 T 0367 
00001603 T 0367 
00001604 T 0369 
00001605 T 0371 
00001606 T 0433 
00001607 T 0433 
00001608 T 0464 
00001609 T 0468 
000016190 T 0469 
00001611 T 0470 
00001612 T. 0472 
00001613 T 0473 
00001614 T 0476 
00001615 T 0485 
00001616 T 04865 
00001617 T 0489 
00001616 T 0490 
00001619 T 0490 
00001620 T O492 
498 LONG. NEXT SEG 
000014621 T 0375 
00001622 T 0375 
00001623 T 0375 
00001624 T 0375 
00001625 7 0375 
Pee eee. EE SF 
00001626 T 0000 
00001627 T 0006 
00001628 T 0007 
00001629 YT 0007 
00001630 T 0010 
00001631 T 0010 
00001632 T OO11 
00001633 T 0013 
00001634 T 0015 
00001635 T 0015 
00001636 T 0016 
00001637 T 0026 
00001638 T 0035 
00001639 T 0038 
00001640 T 0038 
00001641 T 0040 
00001642 T 0055 
00001643 T 0055 


2 


14 


PRTC321) # 


STACK ¢F 42) 
STACK ¢F 43) 
STACKCF +44) 
STACKCF%5) 


STACK(F46) 


BRFGIN% 
MODE t=By TPATTERNSS 
IF CURMODE#MODE THENS 
BEGIN SYMTABCSTARTSYM]%e" 
PUTTEXTC™ AND ")32 
IF CURSY#CIF FSSET THEN ASTERISK ELSE ANDSY) THEN ERROR(64)5% 
END ELSE ERROR(64)3% 


Bco*s PUTSYM(*)"™) ENDS 


PUTDUMMYS STARTSYM$@NUMSYMS3S 
INSYMBOLS FACTOR?% 
IF CURTYPE>0 AND TYPE1>0 FHENS 
BEGIN’ 
IF CURTYPE#TYPEL THENS 
BEGIN? 


IF TYPETABIE TYPES) FORMENUMERIC OR CURTYPE#REALTYPE THENY 
CHECKTYPES¢(TYPE1eCURTYPE) 3% 
: ie ath a THEN CURTYPEN@REALTYPE3% 
ND} 
: Bron PEST ERDE ORE AND MULOPTR2DIVSY THEN ERROR(C65)33 
ND} 
IF MULOPTR®SLASH THEN CURTYPE:®REALTYPE)S% 
If CURTYPE®0 THEN CURTYPEI®TYPE13% 
END OF WHILE LOOPS% 
IF MODESBITPATTERN AND CURMODE#MODE THENS 
BEGIN SYMTABCSTARTSYM] ta” BC") PUTSYMC®)") ENDIS 
CURMODE te MODES 
END OF TERMS 


& 

% 

PROCEDURE SIMPLEEXPRESSIONS 
SIMPLEEXPRESSION 


BEGIN 
INTEGER STARTSYMsMODEeTYPri,F ss 


Seen SIMPLE EXPRESSION wum 
Tee EER Ee 
STARTSYM 


MODE 
TYPES 
F 


BOOLEAN SIGNED;% 


SIGNED 
% 


PUTDUMMYs STARTSYMs®NUMSYMsg 3% 
IF cURSYsPLUS OR CURSY#MINUS THEN 
BEGIN SIGNEDtsTRUESSZ 
PUTSYMCIF CURSYsPLUS THEN@s" ELSE to") 3¢% 
INSYMBOL?% 
END3% 
TERMIS 
MODE 8 aCURMODE 33 
IF SIGNED THEN’ 
BEGIN F&esTYPETABICCURTYPE)+eFORMS% 
: IF FRNUMERIC AND F#FLOATING THEN ERROR(29)3% 
END: 
WHILE CURSY2PLUS AND CURSYSORSY DO 


% teh, How, HORH 


14 1S 


00001644 
00001645 
00001646 
00001647 
00001648 
00001649 
00001650 
00001651 
00001652 
00001653 
00001654 
00001655 
00001656 
00001657 
00001658 
00001659 
00001660 
00001661 
00001662 
00001663 
00001664 
00001665 
00001666 
00001667 
00001668 
00001669 


185 LONG 


00001670 
00001671 
00001672 


00001673 
00001674 


START OF SEGMENT 


00001675 


00001676 
00001677 
00001678 
00001679 
00001680 
00001681 
00001682 
00001683 
00001684 
00001685 
00001686 
00001687 
00001688 
00001689 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
bi 
T 
e 


4 4 


0059 
0060 
0061 
0061 
0072 
0078 
0082 
0084 
0091 
0092 
0094 
0094 
0095 
0095 
0098 
0159 
0161 
0161 
0164 
0164 
0166 
0168 
0168 
0170 
0180 
0184 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


ERK RS 


Se ee Nee ee ee ee ee ee i 


0000 


0000 
0000 
0006 
0008 
0009 
0020 
0021 
0021 
0024 
0022 
0022 
0024 
0027 
0027 


2 


15 


STACK ¢F 42) 
STACK (F 43) 
STACKCF 44) 
STACKCF 45) 


 STACKCF #6) 


END 


% 
z 
PROC 


BEGIN 


BEGINS 
TYPELSECURTYPES FERTYPFTABILTYPEL),FORM3% 
IF FENUMERIC OR FeFLOATING THENS 
BEGIN MODE taNUMBER?% 
IF CURSY@PLUS THEN BUTSYMC"4#") ELSES 
IF CURSY@MINUS THEN PUTSYMC"") ELSE ERROR(64)3% 
END ELSES 
IF CURTYPE@BOOLTYPE THENS 
BEGINS 
MODES *®BITPATTERNSS 
IF CURMODE#MODE THEN 
BEGIN SYMTABLESTARTSYMJte@" 
IF CURSYsORSY THEN PUTTEXTC™ 
END ELSES 
IF FrRSET THENS 
BEGINS 
MODE tsBI] TPATTERNIS 
IF CURMODE#MODE THEN 
BEGIN SYMTABLSTARTSYMJI5" BC™s; PUTSYMC™)") ENDS® 
IF CURSYSPLUS THEN PUTTEXTC® OR™) ELSES 
IF CURSY®MINUS THEN BEGIN PUTTEXT(® 
ELSE ERROR(64)3% 
END ELSE ERROR(64)35% 
INSYMBOL3% 
PuTDUMMY? 
TERMIS 
If CURTYPE>0 AND TYPE1>0 THENS 
BEGINS 
IF CURTYPE¥TYPEy THENS 
BEGINS 


BC"s PUTSYMC")") ENDS 


STARTSYMS mNUMSYMS33 


OR") ELSE ERROR(64)3% 


AND”) SPUTTEXTC" 


NOT "END 


IF TYPETABICTYPEL J sFORMPNUMERTIC OR CURTYPE#REALTYPE THENS 


CHECKTYPESCTYPEL*CURTYPE) 33 
IF TYPE1L*#REALTYPE THEN CURTYPES®REALTYPE33% 
END ENDs3% 
IF CURTYPE®O THEN CURTYPES*TYPELSS 
END OF WHILE LOOP3% 
IF MODESBITPATTERN AND CURMODESBITPATTERN THENS 
BEG YN SYMTABLSTARTSYM) ta” Bers PUTSYMC#)") ENDS 
CURMODE Se MODE? 
OF SIMPLEEXPRESSIONS& 


EDURE EXPRESSIONS Beue EXPRESSION wee 
Leeeee eee eS 


INTEGER STARTSYMaFIRSTSYM, TYPES »RELOPTRoF 3S 


=z STARTSYM 
a FIRSTSYM 


TYPE! 
RELOPTR 
F 


BOOLEAN CALLGENSS 


15 1§ 


00001690 
00001691 
00001692 
00001693 
00001694 
00001695 
00001696 
00001697 
00001698 
00001699 
00001700 
00001701 
00001702 
00001703 
000013704 
00001705 
00001706 
00001707 
00001708 
00001709 
00001710 
00001711 
00001712 
00001713 
00001714 
00001715 
00001716 
00001717 
00001718 
00001719 
00001720 
00001721 
00001722 
00001723 
00001724 
00001725 
00001726 
00001727 
00001726 
00001729 


213 LONG 


00001730 
00001731 
00001732 
00001733 
00001734 


START OF SEGMENT 


00001735 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


ett 


T 


0030 
0030 
0032 
0034 
0035 
0044 
0054 
0054 
0056 
0056 
0057 
0058 
0068 
0077 
0077 
0079 
0079 
0080 
0083 
0091 
0098 
0114 
0116 
0118 
0116 
0125 
0125 
0127 
0127 
0128 
0129 
0131 
0192 
0194 
0194 
0196 
0196 
0196 
0208 
0209 
NEXT SEG 


0375 
0375 
0375 
0375 
0375 


+e eK 


0000 


2 


16 


STACKCF47) = CALLGEN 
z 


EXPRLEVELSSEXPRLEVEL 413% 
IF EXPRLEVEL = 1 THENS 
BEGINS 
PUTDUMMY38 
FIRSTSYM t= NUMSYNMS3% 
END)% 
PUTDUMMY$ STARTSYMS®NUMSYMS3% 
PUTDUMMY 33% 
SIMPLEEXPRESSIONS& 
IF CURSY2LSSSY AND CURSY<INBY THEN 
BEGIN 
TYPeitecURTYPES FESTYPETABICTYPE1],FORM3% 
RELOPTRiecuRsy3s% 
IF FSALFA THEN 
BEGINS 
IF CURMODESBIJTPATTERN THENS 
BEGIN SYMTABCSTARTSYMj]!s" REALC"S PUTSYMC™)") ENDS 
IF CURSYSLSSSY THEN PUTSYM(C®<") ELSER 
IF CURSY®LEQSY THEN PUTSYM(™S") ELSES 
IF CURSYSGEQSY THEN PUTBYM(C"2") ELSES 
IF CURSYSGTRSY THEN PUTSYMC™>") ELSES 
IF CURSYSEQLSY THEN PUTSYM( a") ELSES 
IF CURSY#NEQSY THEN PUTSYM("#") ELSES 
BEGINS : 
IF F2ZFLOATING THEN FRROR(64)52% 


SYMTABLSTARTSYMJ te" NTSTC™S PUTSYMC%s%)3 CALLGENS#TRUESS 


ENDI® 
EnD ELSES 
IF FReSET THENS 
BEGINS 
IF CURMODESBITPATTERN THENS 
BEGIN SYMTABESTARTSYM41]3®" REALC™s PUTSYMC™)%) ENDS 
IF CURSY®EQLSY OR CURSYENEQSY THEN? 
BEGIN PUTSYMCIF CURSYSEQ@LSY THEN "8" FLSE MH > 38 
END ELSES 
BEGINS 
IF CURSYsLEQSY THEN SyMTABLSTARTSYM] $="INCLIC” ELSES 


IF CURSYsGEQSY THEN SyMTABCSTARTSYMj t=" INCL2¢(" ELSE ERROR(64)3 


PUTSYMC%,*)3 CALLGENSSTRUESS 
EwD END ELSES 
IF FBPOINTERS THENS 
BEGINS 
IF CURSYSEQLSY THEN PUTSYMC*@") ELSES 
IF CURSY®NEQSY THEN PUTSYMC(C™#") ELSE FRROR(64)3% 
END ELSE ERROR(64)3% 
INSYMBOLS% 
PUTDUMMYS STARTSYMESNUMSYMS32 
SyMPLEEXPRESSIONES 
IF CURTYPE>0 AND TYPE4>0 THEN 
IF CURTYPE#TYPE, THENS 
IF RELOPTR#INSY THENS 
BEGINS 


IF TYPETABICTYPEL JeFORMPNUMERTIC OR CURTYPEFREALTYPE THENS 


CHECKTYPES(TYPELeCURTYPE) 3% 
END ELSE% 
IF TYPETABICCURTYPE)eFORM#SET THEN ERROR(66)% 


% Met eMe MAMMA MOM, Hat, HEM EN 


00001736 
00001737 
00001738 
00001739 
00001740 
00001741 
00001742 
00001743 
00001744 
00001745 
00001746 
00001747 
00001746 
00001749 
00001750 
00001751 
00001752 
00001753 
00001754 
00001755 
00001756 
00001757 
00001758 
00001759 
00001760 
00001761 
00001762 
00001763 
00001764 
00001765 
00001766 
00001767 
00001768 
00001769 
00001770 
00001771 
00001772 
00001773 
00001774 
00001775 
00001776 
00001777 
00001778 
00001779 
00001780 
00001781 
00001762 
00001783 
00001784 
00001785 
00001786 
00001787 
00001788 
00001789 
00001790 
00001791 
00001792 


aaa sass ca a a aa as as as a a ss ssn a a a a a ase a a a te a se 


0000 
0000 
0001 
0002 
0002 


0008 — 


0009 
0009 
0017 
0024 
0025 
0026 
0027 
0029 
0030 
0031 
0031 
0032 
0043 
0052 
0061 
0070 
0080 
0089 
0098 
0099 
0101 
0112 
0112 
0112 
0113 
0114 
0114 
0125 
0127 
0137 
0137 
0137 
0140 
0146 
0155 
0155 
0156 
0156 
0165 
0176 
0177 
0177 
0184 
0164 
0186 
0187 
0189 
0189 
0192 
0253 
0253 


e 6 


ELSE CHECKTYPESCTYPE1+TYPETABICCURTYPE J eSETTYPE)3% 
Ip CURMODE=BITPATTERN THEN 
BEGIN SYMTABLSTARTSYMJ tm” REALC™S PUTSYMC")") ENDS 
IF CALLGEN THEN PUTSYM(#)R)3% 
CURTYPES@BOOLTYPES CURMODEF#BITPATTERNES 
END}S% 
EXPRLEVELS@EXPRLEVEL 19% 
IF EXPRLEVEL®0 THENS 
BEGINS 
IF CURMODE®BITPATTERN THENS 
BEGINS 
SYMTABECFIRSTSYM] ge " Reales 
PUTSYMC™)") 5% 
ENDS% 
WRITEEXPRSS 
PRT¢392) = *DESTINATION POINTER* 
END3% | 
END OF EXPRESSIONS2 


% 
% 
DEFINE ROOLEXPReSs 
BEGINS 
PUTDUMMY3 E€XPRLEVEL!e#13 EXPRESS]ONSZ 
IF CURTYPE>0 THEN IF CURTYPE#BOOLTYPE THEN ERROR(47)3% 
IF CURMODE#BITPATTERN THENS 
BEGIN SYMTABL1) #8" BCs; 
EXPRLEVEL$*03 WRITEEXPRSS 
END OF BOOLEXPR#}% 


PUTSYMC™)") ENDSS 


F toa en oe 


16 158 


00001793 
00001794 
00001795 
00001796 
00001797 
00001796 
00001799 
00001800 
00001801 
00001802 
00001803 
00001804 
00001805 
00001806 
00001807 


00001806 
00001809 


SAA ata ot tt 


439 LONGes 


00001810 
00001611 
00001812 
00001813 
00001814 
00001615 
00001816 
00001817 
000018618 
00001819 


ee ee ee ee ee 


0256 
03186 
0318 
0329 
0337 
0339 
0339 
0341 
0342 
0342 
0343 
0343 
0345 
0353 
0353 


0432 
0432 
NEXT SEG 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


2 


FREZARLFALZLALASLSASALLALAELTALASABSABLALASASLALTLALLASABLASALALAALAFGAASE 


PARI 5% INTRINSIC ROUTINES, 


a 
x 
r | 
% 
aM EP OB TT aOK Basen gana x 
4 
% 
a 
3 


Ba BR BC DL BE BC He Be 


BELZBAATALLLTAAARTALTASTALTALAALSAALAZRARIALAALEALILATSRALAAALALTALEALZ 
x 


4 
PROCEDURE CONCATS Beee "CONCAT™ wen 
BEGIN LECeeeeneeeeEeES 


DEF TNE INTEXPRe& 


BEGIN INSYMBOLS EXPRESSION! 

IF CURTYPE>0 THENS 

IF TYPETABLECURTYPEJeFORM#NUMERIC THEN ERROR(C1793% 
END #38 


PUTTEXTC™CONCAT")3 PUTSYMC™C(%) 3% 
INSYMBOL 3:2 
IF cCURSY®LPAR THENS 
BEGIN . 
INSYMBOLS EXPRESSIONS 
IF CURTYPE>0 THEN 
IF TYPETABY(CURTYPE] ,FORMPALFA THEN ERROR(17)2% 
IF CURSY®COMMA THENS 
BEGINS 
PUTSYMC™s")3  INSYMBOLS EXPRESSIONSS 
IF CURTYPE>O THEN . 
IF TYPETABLECCURTYPEJ«FORMD>ALFA THEN ERROR(17)33% 
IF CURSY=®COMMA THENS 
BEGINS 
PUTSYMC%,%)3 INTEXPR3S 
IF CURSYsCOMMA THENg 
BEGINS 
PUTSYMc*.?)3 INTEXPRIS 
IF CURSYSCOMMA THEN®S 
BEGINS 
PUTSYMC™e")3) INTEXPRSS 
PUTSYMC™#")3 = PUTCONSTCCARDCNT) 3% 
PUTSYMC%)™)3% 
IF CURSY#FRPAR THEN BEGIN ERROR(3)% SKIPCRPAR) ENOSS 
END ELSE BEGIN ERROR(C3)) SKIPCRPAR) END} 
END ELSE BEGIN ERRORC 3)? SKIPCRPAR) END} 
END ELSE BEGIN ERROR(3)8 SKyPCRPAR) ENDS 
END ELSE BEGIN ERROR¢(3)3 BKIPCRPAR) ENDIS 
END ELSE BEGIN ERRORC3)% SKIPCRPAR) ENOSS 
CURTYPESSREALTYPESS 
IF CURSY#RPAR THEN INSYMBoL3% 
END OF CONCAT3% 


00001821 
00001822 
00001823 
00001824 
00001825 
00001826 
00001827 
00001828 
00001829 
00001830 
00001831 
00001832 
00001833 
00001834 
00001835 


START OF SEGMENT 


17 1S 


00001836 
00001837 
00001836 
00001839 
00001840 
00001841 
000018642 
00001843 
00001844 
00001845 
00001846 
00001847 
00001848 
00001849 
00001850 
00001851 
00001852 
00001853 
00001854 
000018655 
00001656 
00001657 
00001858 
00001859 
000018660 
00001661 
00001862 
00001863 
00001864 
00001865 
00001866 
00001867 
00001668 
00001869 
00001870 
00001871 
00001872 


120 LONG 


00001873 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
me 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
i 
T 
T 
T 
T 
T 
T 
T 
T 
T 
s 


T 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


i ee OK ee 


0000 
0000 
0000 
0000 
0000 
0000 
0014 
0015 
00145 
0016 
0017 
0018 
0021 
0022 
0022 
0031 
0031 
0035 
0035 
0036 
0048 
0049 
0050 
0062 
0063 
0063 
0076 
0096 
0104 
0106 
0108 
0110 
0112 
0114 
0116 
0117 
0119 
NEXT SEG 


0375 


i7 


2 


% 
PROCEDURE PREADCCHANGELINE D33 
PRT(393) s PREAD 
VALUE CHANGELINE’ BOOLEAN CHANGELINE?S 
BEGINS 
INTEGER FILEIDOF 3% 


STACK(F*2) = FILEID 
STACKCF 43) = F 
BOOLEAN CHECK 33 
STACK(Fe4) = CHECK 
GENC™ BEGIN'+722)83 
FILEPARAMCINPUTFILE)$ FILESDERFILENAMESS 
IF TYPETABICCURTYPE],FORMeF LES THEN ERROR(85)3% 
IF SYMKINDECCURSYI#TERMINAL YHENZ 
BEGINS 
IF CURSY NEQ RPAR THENS 
Do BEGINS 
WHILE CURSYS®COMMA DO INSYMBOL?% 
IF CURSY®IDENTIFIER THENS 
BEGINS 
SEARCHIS 
IF FOUND THEN? 
BEGINS 
IF THISID,JOCLASSayAR OR 
THISID, IDCLASS#cONST AND BOOLEANCTHISID,FORMAL) THEN 
BEGINS 
VARIABLES FUSTYPETABLECURTYPE],FORMIZ 
IF FRNUMERIC OR FeFLOATING OR FaCHAR THENS 
BEGING 
CHECKI®CHECKOPTION AND F#FLOATINGSS 
WRITEEXPRS GENC™3e%2 206758 
PRT(324) & *pESTINATION POJNTER* 
IF CHECK THEN GENC*CHECK( 2 602)5% 
GENC"PREAD(C™s629)3 GENIDCPF™oFILEID®5)§ GENC*o og n7)5% 
GENIDC"™V"sFILELD eB)? GENC™e oie 73% 
GENIDC™IMeF ILE DP #593 GENC™e oye 7 3S 
IF FeNUMERIC THEN GENINTC2) ELSES 
IF FeFLOATING THEN GENINTC3) ELSE GENINTC1 93% 
GENC™>*ohe7)s GENINTCCARDCNT)3 GENC™)"5107)3% 
IF CHECK THENS 
BEGINS | 
GENC™s",h0e7)8 GENINTCTYPETAB2ECURTYPEJ)3 GENC™e%ole7 8% 
GENINTCTYPETAB3SLCURTYPEIJ)S GENC™o Mele 7)3E 
GENINTCCARDCNT)$ GENC™2%p107 3% 
ENDS’ 
END ELSE BEGIN ERROR( 8293 INSYMBOL END3% 
END ELSE BEGIN ERRQR(8)3 INSYMBOL ENDIS 
END ELSE BEGIN ERROR( 1) INSYMBOL END}S 
END ELSE ERROR(9)33 
GENC™ 270 10799% 
END UNTIL CURSY#COMMA3% 
If CURSY#RPAR THEN BEGIN FRRORC46)3 SKIPCRPAR) ENDS 
Ip CURSY®RPAR THEN INSYMBOL3% 
END3% 
IF CHANGELINE THEN 
BEGINS 


00001874 
00001875 


00001876 
00001877 
00001878 


START OF SEGMENT 


00001879 


00001880 
00001881 
00001882 
00001883 
00001684 
00001885 
00001886 
00001887 
00001688 
00001689 
00001890 
00001891 
00001892 
00001893 
000018694 
00001895 
00001896 
00001897 
00001898 
00001899 
00001900 


00001904 
00001902 
00001903 
00001904 
00001905 
00001906 
00001907 
00001908 
00001909 
00001910 
00001911 
00001912 
00001913 
00001914 
00001915 
00001916 
00001917 
00001918 
00001919 
00001920 
00001921 
00001922 
00001923 
00001924 


SE . 


ASAHI Ht tH tt 


0375 
0375 


0375 
0375 
0375 


eo a 


0000 


0000 
0009 
0062 
0065 
0066 
0066 
0067 
0068 
0070 
0071 
0071 
0100 
0100 
0100 
0102 
0104 
0105 
0107 
0109 
0110 
0112 


0199 
0209 
0239 
0260 
0281 
0329 
0418 
0480 
0480 
0481 
0543 
0596 
0649 
0649 
0652 
0655 
0658 
0660 
0669 
0671 
0673 
0675 
0675 
0676 


PRT(395) = 


STACKC Fee) 
STACK(F43) 
STACK¢(F 44) 
STACK(F 45) 


STACK (F 46) 


PRT(396) ® 


GENCTRLINEC™*#692)3 GENIOC"FMSFILEID95)3 
GENIDO"V"*FILEID #593 GENC*O eg ao7 9% 
GENIDCMITeFILETD#S)3 « GENC™9)%91879338 
END;% 
GENC™END 2495 3% 


ENp OF PREADS3% 


% 
PROCEDURE PWRITECLINEFEED) 3% 
PWRITE 
VALUE LINEFEEDS BOOLEAN LINEFEED33 
BEGINS 
INTEGER FILEIDeFe te LASTSY;% 
* FIbEID 
= F 
= | 
a LASTSY 
POINTER P32 
= P 
GENC™ BEGIN"+70093% 
FILEPARAMCOUTPUTFILE)$ FILETDORSFILENAMESS 
IF TYPETABICCURTYPE JeFORMaFILES THEN ERROR(85)3% 
IF SYMKINDECURSYJ#TERMINAL THENS 
BEGIN 
IF CURSY NEQ@ RPAR THENS 
DO BEGIN’ 
WHILE CURSYSCOMMA pO yNSYMBOLSS 
IF CURSYSALFACONST ANg CURLENGTH>? THEN 
BEGINS 
GENC"WALFAC! 560293 GENIDC*FM FILED. S)3 
*DESTINATION POINTER 
GENIDC"V"sFILEIDe5)3 GENC™ 99197) 3% 
GENIDC*IMSFILEIDeS)3 GENC™o Mel e7 93% 
PsESTRINGPNTS3 


FOR I3"1 STEP 7 UNTIL 80 pO% 
IF ISCURLENGTH THENS 
BEGINS 
IF ALGOLCNT<10 THEN WRITEALGOLS® 
REPLACE ALGOLPNTSALGOLPNT BY "4, PEP FO 
ALGOLCNTEmMALGOLCNT@ 4038 
END ELSE GENC"00%62,6)33% 
GENINTCCURLENGTH)3S GENCY e549 793% 


GENINTCCARDCNT)$ GENC™)%5107)3% 
INSYMBOL}*% 

END OF ALFACONST ELSES 

BEGINS 
GENC"PWRITEC™e7e1)3 GENIDCO "FOF ILEID®5)3 
GENIDC™V"sFILEIDe Ss GENC*s "0107238 
GENIDC™I"s FILET De S5)3 GENC eel 7238 
LASTSY#ecURSYsS% 
EXPRESS{ONS FeRTYPETABILCCURTYPE) ,FORMES 


GENC soi e7I4% 


GENC™e"e 107) 5% 


GENC%e"%9107)3% 


R 7, we, mY 


GENC™ eel eo 7)5% 


18 IS 


00001925 
00001926 
00001927 
00001928 
00001929 
00001930 


773 LONG 


00004931 
00001932 
00001933 


00001934 
00001935 
00001936 


START OF SEGMENT 


00004937 


000019386 
00001939 
00001940 
00001941 
00001942 
00001943 
00001944 
00001945 
00001946 
00001947 
00001948 


00001949 
00001950 
00001951 
00001952 
00001953 
00001954 
00001955 
00001956 
00001957 
00001958 
00001959 
00001960 
00001961 
00001962 
00001963 
00001964 
00001965 
00001966 
00001967 
00001966 
00001969 


| 


i a 


“4 


at at st mt st st 


AAHAHH ANH st 


0676 
0706 
0727 
0748 
0748 
0757 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 
0375 


eK EEK 


0000 


0000 
0009 
0062 
0065 
0066 
0066 
0067 
0068 
0070 
0072 
0072 


0102 
-0123 
0144 
0145 
0147 
0147 
0146 
0150 
0161 
0163 
0174 
0227 
0280 
0280 
0280 
0281 
0311 
0332 
0353 
0354 
0356 


2 


19 


IF FeNUMERIC OR FeRFLOATING OR FeCHAR OR FRALFA ORS 
CURTYPE@BOOLTYPE THENS 
BEGINS 
IF F®NUMERIC THEN GENINTC1) ELSES 
IF FEFLOATING THEN GENINTC2) ELSES 
IF FRALFA THEN GENINTCS) ELSES 
IF F®CHAR THEN GENINTC4) ELSE GENINTC3)3% 
GENC™ ool e738 
IF CURSYSCOLON THENg 
BEGINZ 
INSYMBOL#® EXPRESSIONSS 
IF TYPETABICCURTYPE) «FORM NEQ NUMERIC THEN ERROR(17)!% 
GENC%9%9497)3% 
IF CURSY*COLON THENS 


BEGINS 
IF F¥FLOATING THEN ERROR(4)3% 
INSYMBOL3 EXPRESSIONS% 


IF TYPETABIECURTYPEJ,FORM NEQ NUMERIC THEN ERROR(C1793% 
GENC eel e758 
END ELSE GENC™@49%o3e5) 58 
END ELSES 
BEGINS 
IF FeFLOATING THEN GENINTC(16) ELSES 
IF FeALFA AND LASTSY@ALFACONST THEN GENINTCCURLENGTH) ELSE 


IF FRALFA THEN GENINTC7) ELSES 
IF FRCHAR THEN GENINTC1) EUSE GENINTC10)3% 
GENC™ oP Lee Gogg 
END)% 
END ELSE ERROR(17)3% 
GENINTCCARDCNT)3 = GENCh 5107 08% 


END OF EXPRESSIONS 
GENChEM 21,7 dFE 
END UNTIL CURSYACOMMASS 
IF CURSY#RPAR THEN BEGIN ERRORC46)% SKIPCRPAR) END? 
IF CURSYSRPAR THEN INSYMBOL?% 
END;3 
FILENAMESeFILEIO8% 
IF LINEFEED THEN 
BEGINS 
INTEGER DUMMY3% 
PRT(327) ® #SEGMENT DESCRIPTOR« 


STACK(F 47) = DUMMY 
GENCTWLINEC% 160203 GENTDCTF™SFILENAME®5)S | GENC 9% ede 7938 
GENIDCMV",FILENAME®5)5 GENC™ sel e7 3X 
GENIDC™I™%e FILENAME ®S)3) GENC™) 94 07)5% 
END3% 
PRT(330) = «#SEGMENT DESCRIPTOR* 


GENCTEND% 94 05)5% 
END OF pPWRITE3% 


START OF SEGMENT 


20 IS 


19 IS 


00001970 T 0365 
00001971 T 0368 
00001972 T 0369 
00001973 T 0370 
00001974 T 0416 
00001975 T 0461 
00001976 T 0506 
00001977 T 0595 
00001978 T 0604 
00001979 T 0605 
00001980 T 0605 
00001981 T 0606 
00001982 T 0609 
00001983 T 0618 
00001984 T 0619 
00001985 T 0619 
00001986 T 0621 
00001987 7 0622 
000019868 T 0625 
00001989 T 0634 
00001990 T 0643 
00003991 T 0643 
00001992 T 0646 
00001993 T 0694 
00001994 T 0737 
00001995 T 0762 
00001996 T oB7! 
00001997 T 0880 
00001998 T 0880 
00001999 T 0882 
00002000 tT 0935 
00002001 T 0935 
00002002 T 0945 
00002003 T 0946 
00002004 T 0949 
00002005 T 0951 
00002006 T 0951 
00002007 T 0952 
00002008 T 0953 
00002009 T 0953 
PPS ee ES EE FT | 
00002010 r 0000 
00002011 T 0030 
00002012 T 0054 
00002013 T 0072 
74 LONGe NEXT SEG 
00002014 T 0954 
00002015 T 0963 
975 LONGs NEXT SEG 
00002016 1 0375 


z 
PROCEDURE FILEHANDLINGCPROCNUM)3 
PRT(331)2 = FILEHANDLING 
VALUE PRoCnUMs INTEGER PROCNUMS 
BEGIN 
INTEGER F3 


STACK(FS2) = F | 
CASpr PROCNUM OF 
BEGIN 3 
PRT¢332) = *CASE STATEMENT DESCRIPTOR 
GENCHPUT™s 325)3 
GENC"GET%2325)3 & 
GENC"RESET%s523)3 & 
GENC™REWRITE"» 70198 & 
GENC™PAGE"eaeays & 
END; % 


GENC™C™ele7)3 FILEPARAMCO9; & 
IF FILENAME®O THEN ERROR(7893 & 
FieTYPETABICCURTYPE] »FORM3% 


IF FeFILES AND PROCNUMeS THEN ERROR(80)3% 
GENC™s%o4 eo 7 IIE 


GENIOC*F Ss FILENAME 2523 
PRT(6333) ® *DESTINATION POINTER*® 
GENIDC™V"eF ILENAME?®5)3 
GENIDC™I"e+F I LENAME®5)3 
GENINTCCARDCNT)3 GENC™)% 9457738 


Zxex 
Saute 


Zune 
Sean 


Lume 
Jane 


Luar 


GENC #197) 3% 
GENC™e "el e738 


IF cCURSY#RPAR THEN BEGIN FRRORC46)3 SKIPCRPAR) ENDS& 


IF cCURSY*®RPAR THEN INSYMBOL3S 
END OF FILEHANDLINGS® 


% 
z 
PROCEDURE PACK3S% 
PRT(334) = PACK 
BEGIN® 
INTEGER IT*T3% 


STACKC(F 42) 8 IT 
STACKCF 43) 3 T 


GENC™PACK(%s503)3% 
INSyMBOL SS 
IF cURSY@LPAR THENZ 
BEGINE 
INSYMBOL#2 
IF CURSYs]DENTIFIER THEN? 
BEGINS 
SEARCHS% 
IF FOUND THEN? 
BEGIN? 
IF THISIDeIDCLASS®VaR THENS 
BEGINS 


TESTYPETABILCTHISIDeTYPEI32% 


00002017 T 0375 
FILE HANDLING PROCEDURES! 00002018 T 0375 
00002019 Y 0375 
1) PUT 00002020 T 0375 
2) GET 00002021 T 0375 
START OF SEGMENT #440 e ee eee 
3) RESET 00002022 T 0000 
4) REWRITE 00002023 T 0000 
5) PAGE 00002024 T 0000 
00002025 T 0010 
00002026 T 0019 
00002027 T 0029 
00002028 T 0038 
00002029 T 0048 
START OF SEGMENT *#e% 48800 
22 1S 7 LONGe NEXT SEG 
00002030 T 0048 
00002031 T 0114 
00002032 T 0116 
00002033 T 0118 
00002034 T 01421 
00002035 T 0142 
00002036 T 0163 
00002037 T 0184 
00002038 tT 0236 
00002039 T 0239 
00002040 T 0240 
21 1S 243 LONGs. NEXT SEG 
00002041 T 0375 
00002042 T 0375 
00002043 T 0375 
00002044 T 0375 
00002045 T 0375 
START OF SEGMENT 4x eee eee we 
00002046 T 0000 
00002047 T 0009 
00002048 T 0009 
00002049 T 0010 
00002050 T 0010 
00002051 T 0011 
00002052 T 0012 
00002053 T 0012 
00002054 T 0042 
00002055 T 0043 
00002056 T 0043 
00002057 T 0044 
00002058 T 0045 


21 


22 
21 


é 


23 


IF TyFORM@ARRAYS THENS 
BEGINE 
TTtaT,INXTYPESS 
IF TYPETAB1(CT,ARRTYPE),FORM#CHAR THEN ERROR( 88) 3% 
GENIOC™V"s 1 000xTHISLEVEL+THISINDEX#5)3% 
PRT(335) = #DESTINATION POINTER* 
IF THISLEVEL>1 AND THISLEVEL#CURLEVEL THEN ERROR(5)3% 
GENC™e"oie7)3 GENINTCTYPETAB2L(THISIDe TYPE] )3% 
GENC™e"ole7)3 GENINTCTYPETAB3LTHISIDs TYPE) 3% 
END ELSE ERROR(C88)3% 
END ELSE ERROR( 88) 8% 
END ELSE ERROR( 123% 
END ELSE FRROR(9)3% 
INSYMBOLSS 
IF CURSYSCOMMA THENS 
BEGINS 
GENC eo 407) 8% 
INSYMBOLS EXPRESSIONS 
IF CURSY®COMMA THEN® 
BEGIN’ 
GENC™e%9497)5% 
INSYMBOL3% 
IF CURSYSIDENTIFIER THENS 
BEGIN’ 
SEARCHIS 
IF FOUND THENS 
BEGIN% 
IF THISTD,IDCLASSmVAR ORS 
THESID,IDCLASS@CONST AND BOOLEANCTHISID,FORMAL) THEN 
BEGINZ 
VARIABLES WRITEEXPRIES 
IF CURTYPE>O THENS 
IF TYPETABICCURTYPE),FORM#ALFA THEN ERROR(12)3% 
END ELSE ERROR(8)3% 
END ELSE ERROR¢(1)3% 
END ELSE ERROR(9)5% 
END ELSE BEGIN ERRORC89)3 SKIPCRPAR) ENDI% 
EnD ELSE BEGIN ERROR(C89)3 SKIPCRPAR) END3% 
IF CURSY#RPAR THEN BEGIN ERRORC46)3 SKIPCRPAR) ENDS% 
If CURSY®RPAR THEN INSYMBOL3% 
END ELSE BEGIN ERRORC3)3 INSYMBOL END3% 
GENC™e™ete7 3 GENINTCCARDCNT)S GENC™)%910793% 
END OF PACK32 


CHECKTYPESC [Te CURTYPE) 3% 


% 


% 
PROCEDURE UNPACKS3 
PRTC336) & UNPAGK 
BEGIN 
INTEGER 1TeT3% 


STACKCFe2) = IT 
STACK(F4e3) = T 


23 1S 


00002059 
00002060 
00002061 
00002062 
00002063 


00002064 
00002065 
00002066 
00002067 
00002068 
00002069 
00002070 
00002071 
00002072 
00002073 
00002074 
00002075 
00002076 
00002077 
00002078 
00002079 
00002080 
00002081 
00002082 
00002083 
00002084 
00002085 
00002086 
00002087 
00002088 
00002089 
00002090 
00002094 
00002092 
00002093 
00002094 
00002095 
00002096 
00002097 
00002098 
00002099 
00002100 


465 LONG 


00002101 
00002102 
00002103 


00002104 
00002105 


START OF SEGMENT 


4444-4 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


+44 


0046 
0048 
0048 
0049 
0053 


0066 
0069 
0123 
0177 
0178 
0179 
0161 
0162 
0162 
0183 
0164 
0193 
0253 
0253 
0254 
0263 
0263 
0264 
0265 
0294 
0294 
0294 
0296 
0298 
0299 
0378 
0379 
0382 
0383 
0385 
0366 
0388 
0390 
0393 
0394 
0397 
0459 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


ee a i a Ok 


¢ 


24 


GENCPUNPACK("s751)8 INSYMBOLSS 
IF CURSYaLPAR THENS 
BEGIN 

INSYMBOL? EXPRESSIONS 


IF CURTYPE>O THEN IF TYpETABLECCURTYPEJ],FORM#ALFA THEN ERRORC17)2% 
IF CURSY®COMMA THENS 
BEGINS 
GENC™e"s10e7)3 INSYMBOL;S% 
IF CURSY®IDENTIFIER THENS 
BEGIN? 
SEARCHSS 
1F FOUND THENS 
BEGINS 
IF THISID,IDCLASSaVAR THENZ 
BEGIN? 
TiBTYPETABICTHISID,TYPEJ3% 
IF TeFORMBARRAYS, THENS 
BEGINS 
ITs*®7,INXTYPE;% 
IF TYPETABLET, ARRTYPEJsFORM#CHAR THEN ERROR(88)3% 
IF THISLEVEL>$ AND THISLEVEL#CURLEVEL THEN ERROR(5)33% 
GENTIDC™V",» L000XTHISLEVEL+THISINDEXs 573% 
PRT(337) © *DEST NATION POINTER*® 
GENC™e"e107)) GENINTCTYPETABOCTHISID,TYPEJ)3% 
GENC™e"ele7)s GENINTCTYPETAB3LTHISID,TYPEJ)43% 
END ELSE ERROR(C 88934 
END ELSE ERRORC 88938 
END ELSE ERROR(C1)3% 
END ELSE ERROR(9)3% 
INSYMBOL 3% 
IF CURSY*COMMA THENS 
BEGINS 
GENC™e*e1e7 IEE 
INSYMBOLS EXPRESSIONS CHECKTYPESCITeCURTYPE) 3% 
END ELSE BEGIN ERROR(89)3 SKIPCRPAR) ENDS® 
EnO ELSE BEGIN ERROR(89)3 SKIPCRPAR) END3% 
IF CURSY#RPAR THEN BEGIN ERROR(C89)3 SKIPCRPAR) ENDS 
IF CURSY®RPAR THEN INSYMBOL3% 
END ELSE BEGIN ERROR(3)3 INSYMBOL ENDj% 
GENC™>o"ele7)8 GENINTCCARDCNT)$ GENC™)%9 467938 
END OF UNPACK32 


x 
. PROCEDURE NEWDISP# 
PRT(3409 = NEWDISP 
BEGING 
INTEGER T1332 


Reee NEW", "D1 SPOSEM 


STACKCF 42) = Ti 
IF CURNAMELS"3000NEW” THEN GENC"NEWC "9 4ea) ELSES 
BEGIN GENC™DISPOSE"»791)3 GENC™C%o107) ENDZS 
INSYMBOL33% 


24 1S 


00002106 
00002107 
00002108 
00002109 
00002110 
00002111 
00002112 
00002113 
00002114 
00002115 
00002116 
00002117 
00002118 


00002119, 


00002120 
00002121 
00002122 
00002123 
00002124 
00002125 
00002126 
00002127 


000021268 
00002129 
00002130 
00002131 
00002132 
00002133 
00002134 
00002135 
00002136 
00002137 
00002438 
00002139 
00002140 
00002141 
00002142 
00002143 
00002144 
00002145 


344 LONG 


46 
00002147 
00002148 


00002149 
00002150 


START OF SEGMENT 


00002151 
00002152 
00002153 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7. 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


4-414 


0000 
0009 
0010 
0010 
0011 
0015 
0016 
0017 
0026 
0027 
0027 
0057 
0058 
0058 
0059 
0060 
0061 
0063 
0063 
0064 
0068 
0074 


0084 
0138 
0192 
0193 
0194 
0196 
0197 
0197 
0196 
0199 
0208 
0268 
0270 
0272 
0274 
0276 
0278 
0340 | 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


Tre rrr ey ft 


T 
T 
T 


0000 
0010 
0031 


(4 


25 


® © 


IF CURSYSLPAR THEN? 
BEGIN 
INSYMBOL 3 
IF CURSY#IDENTIFIER THENS 
BEGINS 
SEARCH3% 
IF FOUND THENS 
BEGIN? 
VARIABLE S% 
IF CURTYPE>O THEN IF TYPETABIECCURTYPEJ],FORMSPOINTERS THENS 
BEGINS 
WRITEEXPR? GENC%."%,407)3% 


PRT¢(341) & *DESTINATION POJNTER* 


END 


Tite TYPETAB{CCURTYPE),POINTITYPESS 
Ty tsTYPETABICT1),SIZE3% 
IF 11>4023 THEN ERROR(86)33 
GENINTCT1)3 GENC™O"ele7>58 
END ELSE ERROR(81)3% 
END ELSE BEGIN ERROR(1)3 INSYMBOL END3% 
END ELSE ERRORC9)3% 
WHILE CURSYSCOMMA DO% 
BEGIN INSYMBOL32% 
IF CURSY NEQ@ IDENTIFIER THEN ERROR(9) 3% 
IF CURSY NEQ@ RPAR THEN |NSYMBOL33 
ENDI% 
END ELSE BEGIN ERROR(58)3 SKIPCRPAR) ENDS 
IF CURSY#RPAR THEN BEGIN ERROR(46)% SKIPCRPAR) ENDS 
IF CURSY@RPAR THEN INSYMBoL3% 
OF NEWDISP3% 


25 1S 


00002154 
00002155 
00002156 
00002157 
00002158 
00002159 
00002160 
00002161 
00002162 
00002163 
00002164 
00002165 


00002166 
00002167 
00002168 
00002169 
00002170 
00002171 
00002172 
00002173 
00002174 
00002175 
00002176 
00002177 
00002178 
00002179 
00002180 
00002181 


234 LONGe NEXT SEG 


AHHH ANH HHH Ht tte 


0031 
0032 
0032 
0033 
0034 
0034 
0064 
0065 
0065 
0066 
0066 
0069 


0156 
0158 
0159 
0161 
0214 
0215 
0217 
0216 
0220 
0220 
0222 
0224 
0225 
0227 
0229 
0231 


2 


BETAAZAXAAARAASABLLATALSETAEASSSALLTARLARATALALALAASALALARLARATKUAALAZAAS 


PART 68 THE STATEMENT PARSER, 


3 
3 
% 
r 4 
SF PBF Bw RP eRe P aan eae % 
% 
% 
x 
% 


PAAAZLADATATTVATSTAZALLALATAALASATALAALTALSLASALATLALALARSARATLALAEALLRS 


BE DO Be Be BE Ve BA BL BL BA BR dE 


PROCEDURE STATEMENTS FORWARDS 


PRT(342) = STATEMENT 


x 
PROCEDURE ASSJGNMENT32 
PRT¢343) s ASSIGNMENT 
BEGINS 
INTEGER LEFTTYPESS 


STACK(F 42) = LEFTTYPE 
LABEL ASSIGNSEXITSS& 
IF FOUND THEN® 
BEGINS 
IF THISIDseIDCLASS®VAR ORS 
THISIDeIDCLASSSCONST AND BOOLEANCTHISIDs FORMAL) THEN 
BEGINS 
VARIABLES LEFTTYPES @cURTYPESS 
ASSIGN: IF CURSY#ASSIGNSY THENS 
BEGIN ERROR(28)3 SKIPCASSIGNSY23% 
IF SYMKINDECCURSyJeTERMINAL THEN GO TO EXIT33 
ENDS 
INSYMBOLS% 
IF TYPETABICLEFTTYPE),STRUCT>Q THEN’ 
BEGINS 
ERROR(95)3% 
END ELSES 
BEGIN’ 
WRITEEXPRS GENC 8328.6) 3% 


PRT(344) & *pESTINATION POY;NTER*® 


1F CHECKOPTION AND TYPETABICLEFTTYPE),FORMSCHAR THENS 
CHECKEXPRC(TYPETAB2(LEFTTYPEJeTYPETAB3CLEFTTYPEJ) ELSES 
EXPRESSIoNS3 
WRITEEXPR3S 
CHECKTYPESCLEFTTYPEsCURTYPE 934 
ENDS 
END ELSES 
BEGIN % FUNCTION ASSIGNMENT. 
IF THISLEVEL#CURLEVEL@) OR THISINDEX#CURFUNC THEN ERROR(593% 
GENIDC™V"s10O00XTHISLEVELS+THISINDEXs5)3 LEFTTYPEtSTHISID, TYPES 
INSYMBOLS GO TO ASS{GN3% 
ENDSS 
END ELSES 
BEGINS 
SkIPCASSIGNSY)3% 
IF CURSYSASSIGNSY THEN GO TO ASSIGN;3 
END 3% 


00002183 
00002164 
00002185 
00002186 
00002187 
00002188 
00002189 
00002190 
00002191 
00002192 
00002193 
00002194 
00002195 
00002196 


00002197 
00002198 


00002199 
00002200 


START OF SEGMENT 


00002201 
00002202 
00002203 
00002204 
00002205 
00002206 
00002207 
00002208 
00002209 
00002210 
00002211 


00002212 


00002213 
00002214 
00002215 
00002216 
00002217 
00002218 


00002019 
00002220 
00002221 
00002222 
00002223 
00002224 
00002225 
00002226 
00002227 
00002228 
00002229 
00002230 
00002231 
00002232 
00002233 
00002234 
00002235 


tase As aH 4 


AAHAHM HHH HMA Het HHA tt st st 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 
0375 


0375 
0375 


Tet it itt 


0000 
0000 
0000 
0000 
0002 
0004 
0005 
0006 
0007 

0009: 
0014 

0011 

0011 

0013 
0013 
0014 

0014 
0015 


0192 
0104 
0163 
0184 
0262 
0322 
0322 
0322 
0323 
0326 
0340 
0344 
0341 
0341 
0343 
0343 
0345 


26 


ee ee ee ee ee ee er ee ee ee ee a 2 2 er | 


EXITs3 
END OF ASSIGNMENT32& 


% a 
% 
PROCEDURE COMPSTAT3% 
PRT(345) © COMPSTAT 
BEGINS 
INTEGER BEGINNUM3S 


STACKCF4#2) *@ BEGINNUM 
LABEL STATM3% 
% 
BEGrNNUMI SNUMBEGINSS BNUMBEGINS413) MARGING"” B'sBEGINNUM) 3% 
PRT¢346) © *DESTJNATION POYNTER*™ 
GENC "BEGIN" »693)3% 
DO BEGINS 
IF CURSYSSEMICOLON OR CURSYSBEGINSY THEN INSYMBOL3% 
STATEMENT3% 
GENC™3 "9197932 
IF CURSY®ELSESY THEN REGIN ERROR(20)3 INSYMBOL$ GO STATM END} 
IF SYMKIND(CURSYJ@INITIAL THEN BEGIN ERROR(21)3 GO STATM ENDIS 
END UNTIL CURSY#SEMICOLON;% 
IF CURSY#ENDSY THEN 
BEGIN ERROR(24)3 SKIPCENDSYy) 3% 
IF CURSY#ENDSY THEN BEGIN INSYMBOLS GO TO STATM ENDS 


STATM) 


END33% 
GENC™ END%e524)3 
INSYMBOL}% 

END OF COMPSTAT3% 


MARGING® E"eBEGINNUM) 32% 


% 


r § 
PROCEDURE IFSTATI®& 
PR1(3479 = [FSTAT 
BEGINS 
LABEL EXIT3s 


GENC™IF "2306938 | 
INSYMBOLS BOOLEXPR}% 
PRTC350) 5 *DESFINATION POINTER» 

IF CURSY#THENSY THENS 

BEGIN IF CURTYPE>0 THEN ERRORC27)3% 
SKIPCTHENSY 232% 
IF CURSY#¢THENSY THENS 
BEGIN IF CURTYPERO THEN ERROR(27)3% 

IF SYMKINDECURSY]STERMINAL THEN GO To EXIT#% 
END; END}% 
GENC™ THEN™s603)3% 


26 IS 


START OF SEGMENT 


27 1S 


START OF SEGMENT 


00002236 T 0345 
00002237 T 0345 
352 LONGe NEXT SEG 
00002238 T 0375 
00002239 T 0375 
00002240 T 0375 
00002241 T 0375 
00002242 T 0375 
tok ee 
00002243 T 0000 
00002244 7+ 0000 
00002245 7 0000 
00002246 T 0020 
00002247 T 0029 
00002248 T 0029 
00002249 T 0031 
00002250 T 0032 
00002251 T 0041 
00002252 T 0047 
00002253 T 0049 
00002254 T 0051 
00002255 T 0051 
00002256 T 0053 
00002257 T 0056 
00002258 T 0056 
00002259 T 0083 
00002260 T 0083 
88 LONGe NEXT SEG 
00002261 T 0375 
00002262 T 0375 
00002263 T 0375 
00002264 T 0375 
00002265 T 0375 
TPE Lier | 
00002266 T 0000 
00002267 T 0009 
00002268 Tt 0112 
00002269 TY 0113 
00002270 T 0115 
00002271 T 0116 
00002272 T 0117 
00002273 T 0119 
00002274 T 0121 
00002275 T 0121 


4 


27 


2 


28 


PRT(351) = 


STACKCF +2) 


STACKC(F #3) 
STACKC(F 4) 
STACKC(F 45) 
STACKCF 46) 
STACK EF 47) 
STACK¢(F 410) 
STACKCF e141) 
STACK(F 412) 


STACKC F413) 
STACKC( F414) 


PRT(352) # 


INSYMBOLS STATEMENT)S 

IF cCURSY*ELSESY THENS 

BEGIN GENC™ ELSE%s653)3 INSYMBOL? STATEMENT END?% 
EXIT#s 
END OF {FSTATSIS& 


% 
% 
PROCEDURE CASESTATI2& 
CASESTAT 
BEGINS 
DEFYNE CASEHASH(N)#(N), (38639) MOD MAXCASES#SS 


INTEGER ARRAY CASETABLOSMAXCASES) 53% 
CASETAB 


INTEGER CASENUM*CASETYPE snCaSELABS*® TEMPVARNUM®CONVAL®CONTYPE oCeT3% 


CASENUM 
CASETYPE 
NCBSELABS 
TEMPVARNUM 
CONVAL 

= CONTYPE 

=x C 

er ] 


BOOLEAN ZEROLAB*FIRST3% 
= ZEROLAB 
* FIRST 
% 


CASENUMPENUMCASESTSNUMCASFS413 MARGINC"CBY» CASENUM) 3% 


*DESTINATION POINTER*™ 
TEMPVARNUMESNUMTEMPS$ ®NUMTEMPS443% 
IF TEMPVARNUM>MAXTEMPS THEN ERROR(16)3% 


GENC"BEGIN"*603)3 GENIDC™T® + TEMPVARNUM®2)3 GENC%S 3% 206) 5% 


INSYMBOL3 EXPRESSION;2 
GENC™s"910e7)3 CASETYPESECURTYPESS 
IF TYPETABIECASETYPEJ,FORM2FLOATING THENS 
BEGIN ERROR(17)35 CASETYPE?30 ENDS 
IF CURSY#OFSY THENS 
BEGIN IF CASETYPE>0 THEN ERROR(1{8)5% 
SKIPCOFSY)32% 
IF CURSY#oOFSY THEN INSYMBOL ELSES 
IF CASETYPE*®0 THEN FRROR(18)34 
END ELSE INSYMBOL?*% 
DO BEGINS 
WHILE CURSY®SEMICOLON DO INSYMBOL?% 
FIRSTIETRUESS 
IF CURSY#ENDSY THENS 
BEGINS 
GENCT IF %,3,699% 
Do BEGINS 
IF FIRST THEN FIRSTSeFALSE ELSE INSYMBOL33 
CONSTANTCCONVALOCONTYPE) 33% 
IF CONTYPE>O THENS 


2a 1S 


00002276 
00002277 
00002278 
00002279 
00002280 

146 LONG 


| 


00002281 
00002282 
00002283 


00002285 


START OF SEGMENT 


T 
T 
T 
00002284 T 
T 
* 
T 


00002286 
00002287 T 


00002288 T 


00002289 
00002290 


4-4 


00002291 
00002292 
00002293 
00002294 
00002295 
00002296 
00002297 
00002298 
00002299 
00002300 
00002301 
00002302 
00002303 
00002304 
00002305 
00002306 
00002307 
00002308 
00002309 
00002310 
00002311 
00002312 
00002313 


De ee Le) 


0130 
0131 
0132 
0142 
0143 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


Wee a HO ae 


0000 


0001 


0004 


0001 
0004 


0021 
0023 
0025 
0055 
0056 
0066 
0067 
0069 
0070 
0073 
0073 
0075 
0080 
0081 
0081 
0083 
0084 
00684 
0085 
0094 
0095 
0098 
0186 


2 


29 


PRT(353) 


PRT(¢354) 


PRT(€355) 
PRT(356) 


BEGIN’ 
IF CASETYPE=0 THEN CASETYPES®CONTYPE ELSES 
CHECKTYPES(CASETYPE sCONTYPE DS 
GENIDC™T*sTEMPVARNUMs2)5 GENC™a%e407)3 
NCASELABSt mNCASELABS 444% 
IF NCASELABS<MAXCASES THENS 
BEGINS 
IF CONVAL#0 THEN? 
IF ZEROLAB THEN ERROR(31) ELSE ZEROLABS*TRUE 
BEGIN? 
TSECASEHASH(CONVAL) 3% 
FOR CHBCASETABECT) WHILE C#CONVAL AND c#0 p0g 
TtsIF TsO THEN MAXCASES ELSE Te13% 


IF C#0 THEN ERRORC34) ELSE CASETABCT)# eCONVALSS 


END3% 
END ELSE IF NCASELABS®MAXCASES THEN ERROR(C30)33 
IF CURSY®COMMA THEN GENC"™ OR"2 4059338 
END3% 
END UNTIL CURSYACOMMAsS 
GENC™ THEN" 2603)3% 


IF CURSY#COLON THEN BEGIN ERRORC26)3 SKIPCCOLON) END3% 


IF CURSY*COLON THEN INSYMBOL33% 
STATEMENTS S 
IF CURSY#SEMICOLON AND CURSY#ENDSY THENS 
BEGIN ERROR(21)3 SkIPcSEMICOLON) ENDES 
ENDIZ 
IF CURSY®SEMICOLON THEN GENC™ ELSE%:623)3% 
END UNTIL CURSY#SEMICOLON;% 
IF CURSY#ENDSY THEN BEGIN ERROR(24)3 SKIPCENDSY) END3% 
GENC” END"e#5e24)3 MARGINCWCE™ e+ CASENUM) 3% 
NUMTEMPSs BNUMTEMPS913% 
INSYMBOL3% 
ENO OF CASESTATI3 


% 
z 
PROCEDURE WHILESTATSs% 


= WHILESTAT 


*DEST 


STATM 
EXIT 


BEGIN’ 
LABEL STATM*SEXITS% 


GENC* WHILE» 6.323% 
INSyMBOL3 BOOLEXPR3% 
INATION POINTER* 

IF CURSY#DOSY THENS 

BEGIN IF CURTYPE>0O THEN ERRQOR(1993% 
SKIPCDOSY)3% 
IF CURSY#DOSY THENS 
BEGIN IF CURTYPE#Q THEN ERROR(19)3% 


GO TO IF SYMKINDECURSYJ*INITIAL THEN STATM ELSE EXITIS 


ENDs END3% 


GENINTCCONVAL) 32% 


29 1S 


00002314 
00002315 
00002316 
00002317 
00002318 
00002319 
00002320 
00002321 
00002322 
00002323 
00002324 
00002325 
00002326 
00002327 
00002328 
00002329 
00002330 
00002331 
00002332 
00002333 
00002334 
00002335 
00002336 
00002337 
00002338 
00002339 
00002340 
00002341 
00002342 
00002343 
00002344 
00002345 
00002346 


423 LONG 


00002347 
00002348 
00002349 


00002350 
00002351 


START OF SEGMENT 


00002352 
00002353 


00002354 
00002355 
00002356 
00002357 
00002358 
00002359 


00002360 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
1 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
fd 


Aa eH a4 


| 


0186 
0187 
0189 
0249 
0313 
0314 
0315 
0315 
0316 
0319 
0320 
0322 
0326 
0329 
0333 
0333 
0336 
0346 
0346 
0347 
0356 
0359 
0361 
0364 
0363 
0365 
0365 
0375 
0376 
0379 
0406 
0408 
0406 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 
Teer ett 
0000 
0009 


0112 
0113 
0115 
0116 
0117 
0119 


0125 


r 


30 


@®9eeeeenree%eeeesersteee#ee¢ @®@6c@m6hCOtCOCUhOFmhC OHOmUhUCUCOFmUhlCU!} 


GENC™ DO%.4,5)5% 
INSYMBOL32 
STATMS STATEMENTS2 
EXIT&¢ 
END OF WHILESTATS2 
30 1S 


z 
PROCEDURE REPEATSTATS2 
PRT(357) © REPEATSTAT 
BEGIN® 
INTEGER REPNUMS% 


00002361 
00002362 
00002363 
00002364 
00002365 


142 LONG 


00002366 
00002367 
00002368 


00002369 
00002370 


START OF SEGMENT 


STACKCF 42) 2 REPNUM 
LABEL NEWTRYSS 
z 
REPNUMI®NUMREPS SaNUMREPS 443g 
MARGING”™ R™,REPNUM) 33 
PRT¢(360) = *DESFINATION POINTER*® 
GENC"™D0%s 39623 GENC"BEGIN' »603)3% 
Do BEGINS 
INSYMBOL33 
NEWTRYs STATEMENT 33% 
GENC™;"o10793% 
IF CURSY®ELSESY THEN BEGIN FRRORC2Z20)3;INSYMBOL$ GO NEWTRY ENDS 
IF SYMKIND(CURSYI®INITI gh THEN BEGIN ERROR(21)3 GO NEWTRY ENDS 
END UNTIL CURSY#SEMICOLON;& 
IF CURSY#UNTILSY THEN 
BEGIN 
ERROR (22748 
WHILE CURSY#UNTILSY AND S¥MKINDICURSYJ#4INITIAL DOS 
BEGIN INSYMBOL’ SKIPCUNTILSY) ENDS% 
IF CURSY#UNTILSY THEN Go TO NEWTRY33 
END3;% 
GENC™ END"6504)3 GENCTUNTIL™ #60393 MARGING™ U"e*REPNUM) 3% 
INSyMpOLs; BOOLEXPR;4 
END OF REPEATSTATS® 
31 #15 


% 
% a 
PROCEDURE FORSTATS3 
PRTC361) 8 FORSTAT 
BEGIN® 
INTEGER VARTYPE® VARNUMeLL YM, ULIMSS 


00002371 
00002372 
00002373 
00002374 


00002375 
00002376 
00002377 
00002378 
00002379 
00002380 
00002384 
00002382 
00002383 
00002384 
00002385 
00002386 
00002387 
00002388 
00002389 
00002390 
00002391 
00002392 


211 LONG 


00002393 
00002394 
00002395 


00002396 
00002397 


START OF SEGMENT 


STACK¢(Fe2) w VARTYPE 
STACK¢F 43) = VARNUM 
STACKCF ea) a LLIM 
STACKCF 45) = ULIM 


0125 
0134 
0134 
0135 
0136 
NEXT SEG e 


a ee 


T Q375 
T 0375 
T 0375 
T 0375 
T 

* 


0375 
eo 3] 


0000 
0000 
0000 
0004 


44-444 


T 0020 
T 0038 
T 0038 
T 0038 
T 0039 
T 0048 
T 0055 
T 0057 
T 0059 
T 0059 
T 0060 
T 0061 
T 0063 
T 0065 
T 0066 
T 0066 
T 0102 
T 0208 
» NEXT SEG v4 


T 0375 
T 0375 
T O375 
T O375 
T QO375 
PE eT ee CEE TY 32 


STACK(CF46) 3 DOWN 
% 


BOOLEAN DOWN3% 
Lapel STATM3% 


GENC™BEGIN' 2603932 
INSyMBOL3% 
IF CURSYs!DENTIFIER THEN 
BEGINS 
SEARCHES 
IF FOUND THEN 
BEGINS 
VARNUMS®1000xTHISLEVEL+THISINDEX$% 
IF THISIDe I DCLASS®VAR ORS 
THISIDeIDCLASS®CONST AND BOOLEANCTHISIDeFORMAL) THENS 
BEGINS 
IF THISLEVEL>1 AND THISLEVEL<CURLEVEL THEN ERROR(5)3% 
IF THISLEVELACURLEVEL THEN ERROR(83)33% 
VARTYPESeTHISID, TYPE FS 
IF TYPETABICVARTYPE),FORMSCHAR THEN 
BEGINS 
LLIMS=TYPETAB2EVARTYPEJ3 ULIMsaTYPETAB3LVARTYPEJ33% 
END ELSE BEGIN ERROR(12)3 VARTYPEs#0 END3% 
END ELSE ERROR(6)3% 
END ELSE ERRORC1)3% 
END ELSE ERRORC9)3% 
INSyMpOL3% 
IF CURSY#ASSIGNSY THEN 
BEGYN ERROR¢(28)3% 
SKIPCASSIGNSY)I& 
IF CURSYSASSIGNSY THEw INSYMBOL ELSES 
IF SYMKINDECURSYJFINITIAL THEN GO To STATM33 
END ELSE INSYMBOLS% 
GENIDC™V"eVARNUM®S) 3 GENC™&" ode 7 93% 


PRT(362) * #DESFINATION POINTER» 


IF cCHECKOPTION THEN CHECKEXPRCLLIM*®ULIM) ELSE EXPRESSIONS S 
WRITEEXPR}S 
GENC™s"ole7) 3% 
IF VARTYPE#O THEN VARTYPESFCURTYPE ELSE CHECKTYPESCVARTYPE*CURTYPE)3 
NUMTEMPSteNUMTEMPS413 JF NUMTEMPS>MAXTEMPS THEN ERROR( 1693 
IF CURSYaTOSY THEN |NSYMBOL ELSES 
IF CURSY@DOWNTOSY THEN BEGIN DOWNt#TRUES JNSYMBOL END ELSES 
BEGIN IF CURTYPE>0 THEN ERRQR(23)33 

SKIPCTOSY)3% 

IF CURSY®TOSY THEN JINSYMBOL ELSES 

BEGIN IF CURTYPE®O THEN ERROR(23)42% 

IF SYMKINDECURSYIJ*INITIAL THEN GO TO STATM)S 

END; END3% 
GENTOC™T™oNUMTEMPS#2)5 GENC OMe 107233 
IF cHECKOPTION THEN CHECKEXPRCLLIMeULIM) ELSE EXPRESSIONS 
WRITEEXPRIS 
GENCTI% ole 73k 
IF VARTYPEsO THEN VARTYPEs@CURTYPE ELSE CHECKTYPESC(VARTYPE sCURTYPE)3 
IF CURSY#D0SY THEN? 
BEGIN IF CURTYPE>0 THEN ERR@R(19)3% 

SKIPCDOSY)38 

IF CURSY®DOSY THEN INSYMBOL ELSES 

IF CURTYPE®0 THEN ERROR(19)3% 


00002398 


00002399 
00002400 
00002401 
00002402 
00002403 
00002404 
00002405 
00002406 
00002407 
00002408 
00002409 
00002410 
00002411 
00002412 
00002433 
00002414 
00002415 
00002416 
00002417 
00002418 
00002419 
00002420 
00002421 
00002422 
00002423 
00002424 
00002425 
00002426 
00002427 
00002428 
00002429 


00002430 
00002431 
00002432 
00002433 
00002434 
00002435 
00002436 
00002437 
00002438 
00002439 
00002440 
00002441 
00002442 
00002443 
00002444 
00002445 
00002446 
00002447 
00002448 
00002449 
00002450 
00002451 
00002452 


AHH AHHH HHA SH to ss 


AHA HHs HHH AH tH tA 


0000 


0000 
0000 
0000 
0009 
0009 
0010 
0010 
0040 
0041 
0041 
0043 
0044 
0047 
0047 
0050 
0052 
0053 
0055 
0055 
0057 
0059 
0061 
0062 
0063 
0064 
0064 
0066 
0066 
0068 
0070 
0071 


0092 
0170 
0248 
0257 
0319 
0322 
0324 
0327 
0329 
0330 
0332 
0334 
0336 
0336 
0357 
0434 
0512 
0521 
0583 
0583 
0586 
0587 
0588 


END ELSE INSYMBOLS% 
GENC™FOR"s4955)3 GENTIDC"V%eY¥ARNUM®5)3 GENC%O% 157758 
GENTDC*™VMeVARNUMs5)3 GENC” "54,7958 
IF DOWN THEN GENC*DOWNTO",7,2) ELSE GENC"UPTO%,5,4)3% 
GEN TD e*™T*eNUMTEMPS2 223 = GENC™ 20%, 405)3% 
STATM! STATEMENTIY 
GENC™ END®e524)52 
NUMTEMPS 3 #NUMTE MPS" 453 
END OF FORSTATS& 


z 
% 
PROCEDURE GOTOSTAT:% 
PRT(363) & GOTOSTAT 
BEGINS 
INTEGER 13% 


STACK(F 42) 2 J 
INSYMBOLS3 
IF CURSY®INTCONST THENS 
BEGIN IsS®NUMLABS32 


WHILE [21 AND LABTARC TJ eLABVALECURVAL DO Italelss 


IF [80 THEN ERROR(15)3% 
GENC™GO%.306)3 =GENTDC"L™,CURVAL®4)3% 
PRT( 364) w *pESTYNATION POYNTER* 
INSYMBOL 3% 
END ELSE ERROR(10)3% 
END OF GOTOSTAT3% 


% 
x 
PROCEDURE WITHSTATS3% 
PRT(365) = WITHSTAT 
BEGINS 
INTEGER STARTLEVEL®VERYFIRSTWITHSYMe [5% 


STACK¢F4e2) = STARTLEVEL 
STACKCF&3) # VERYFIRSTWITHSYM 
STACK(F ea) @ | 
REAL 05% 
STACKCF 4&5) & DP 
STARTLEVELISTOPLEVELS VERYFIRSTWITHSYM: @NWITHSYMS} & 
DO BEGINS 
INSYMBOLIS 
IF CURSY@IDENTIFIER THENS 
BEGINS 
SEARCHS2 
IF FOUND THENS 
BEGINS 


32 1S 


33 IS 


00002453 
00002454 
00002455 
00002456 
00002457 
00002458 
00002459 
00002460 
00002461 


703 LONG 


00002462 
00002463 
00002464 


00002465 
00002466 


START OF SEGMENT 


00002467 
00002468 
00002469 
00002470 
00002471 
00002472 


00002473 
00002474 
00002475 


36 LONG 


00002476 
00002477 
00002478 


00002479 
00002480 


START OF SEGMENT 


00002481 


00002482 
00002483 
00002484 
00002485 
00002486 
00002487 
00002488 
00002489 


= at st te ts 


#44 4-4-4 


a+ tt 


T 
T 
T 
T 
T 
* 


+4444 


0591 
0592 
0622 
0643 
0665 
0686 
0686 
0695 
0696 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


eT rer? Tt. 


0000 
0000 
0001 
0002 
0007 
0009 


0030 
0031 
0033 
NEXT SEG 


0375 
0375 
0375 


0375 
0375 


KEEREEER 


0000 


0000 
0001 
0002 
0002 
0003 
0003 
0032 
0032 


2 


33 


2 


34 


STACK(Fe2) = I 


IF THISID,sIDCLASS®VAR THEN® 
BEGINé 
VARIABLE) 
IF CURTYPE>O THENS 
IF TYPETABICCURTYPE],FORM#RECORD THEN ERROR(98)3% 
IF SIMPLEVARIABLE THENS 
BEGIN PUTSYMC™¢™)3 FNSIDEBRACKETS#aTRUE ENDS 
IF TOPLEVEL<MAXLEVEL THENS 
BEGINS 
TOPLEVEL te TOPLEVEL $152 
D eNAMETABISTYPETABICCURTYPE) sRECTABSS 
DeRECTYPES*CURTYPE 3% 
D»NUMPNTRSINWITHS#NUMPOINTERS3S% 
DeFIRSTWITHSYMSeNWITHSYMS;% 
DeBRACKETSINWITHIBREALCINSIDEBRACKETS) 3% 
IF NWITHSYMS+NUMSYMS>MAXWITHSYMS THEN €RROR(63) ELSES 
FOR yiwei STEP 1 UNTIL NUMSYMS pOs% 
BEGINS 
WITHTABENWITHSYMS) teSYMIABCI DSS 
NWITHSYMStanWyTHSYMS 445% 
EnD;% 
DsLASTWITHSYMS3NWITHSYMS™13% 
DISPLAYCTOPLEVEL Js; 3033 
END ELSE ERRORC64)3% 
END ELSE BEGIN ERROR(B8)$ INSYMBOL END3Z 
END ELSE BEGIN ERRORC1)3 INSYMBOL ENDS 
END ELSE BEGIN ERROK(9)$ ;NSYMBOL ENDS 
NUMSYMS# 803 
NUMPOINTERS tm O3% 
END UNTIL CURSY#COMMAS2 
IF CURSY#DOSY THENS 
BEGIN ERRORC19)8 SKIPCDOSY93% 
IF CURSYsDOSY THEN INSYMBOL3% 
END ELSE INSYMBOL3% 
STATEMENT)% 
TOPLEVELt®STARTLEVELS 
END OF WITHSTAT3% 


NWITHSYMSESVERYFIRSTWITHSYMS Z 


% 


3 
PROCEDURE STATEMENT3& 
BEGINS 

INTEGER [2% 


LABEL LABFOUND3% 
IF CURSYS#INTCONST THEN % #ee LABELED STATEMENT «## 
BEG N% 
FOR 1esFIRSTLAB STEP 4 UNTIL NUMLABS DOg 
IF LABTABCI),LABVALSCURVAL THENS 
BEGIN IF LABTABLIJsLABDEF™1 THEN ERROR(31)38 
LABTABCI],LABDEF pai y% 


34 15S 


00002490 
00002491 
00002492 
00002493 
00002494 
00002495 
00002496 
00002497 
00002498 
00002499 
00002500 
00002501 
00002502 
00002503 
00002504 
00002505 
00002506 
00002507 
00002508 
00002509 
00002510 
00002511 
00002512 
00002513 
00002514 
00002515 
00002516 
00002547 
00002518 
00002519 
00002520 
00002521 
00002522 
00002523 
00002524 
00002525 
00002526 


93 LONG 


00002527 
00002528 
00002529 
00002530 
00002531 


START OF SEGMENT 


00002532 
00002533 
00002534 
00002535 
00002536 
00002537 
00002538 
00002539 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
e 


eas 


“tt at at 


0032 
0034 
0034 
0035 
0035 
0039 
0039 
0048 
0048 
0049 
0050 
0053 
0054 
0056 
0058 
0060 
0062 
0064 
0064 
0065 
0066 
0069 
0071 
0072 
0073 
0075 
0077 
0079 
0079 
0080 
0081 
0082 
0084 
0086 
0087 
0087 
0089 
NEXT SEG 


0375 
0375 
0375 
0375 
0375 


ere tert 


0000 
0000 
0000 
0000 
0001 
0002 
0003 
0006 


35 


LABFOUNns GENIDC"™L™ »cURVAL,4)3 


GO 
ENDS 


TO LABFOUND;3% 


ERROR(C1593% 


PRT( 366) & #pESTINATION PO;NTER® 
INSYMBOL 3g 

IF CURSY#COLON THENS 
BEGIN ERROR(26)44 


EN 


SKIPCCOLON)S 


END ELSE 
D:% 


INSYMBOL 3% 


GENC™3"al57)3% 


IF CURSYSCOLON THEN INSYMBOL3% 


COMMENT ##* START OF STATEMENT wae 3% 


IF CURSYSIDENTIFIER THEN 


BE 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


GIN% 
SEARCHIS 
1F FOUND 
BEGINS 


THENS 


IF THISID,IDCLASSSVAR ORS 
THISID,IOCLASS®CONST AND BOOLEANCTHISID,FORMAL) OR 
THISIDeIDCLASS®FUNC THEN ASSIGNMENT ELSES 

IF THISIDeIDCLASS®PROC THENS 


BEGIN® 


IF THISLEVEL®O THEN 
BEGINS 


IF 
IF 


CURNAME1®™SOWRI TE” 
CURNAME Le" 7WRITEL" 
CURNAME 2e"000000N" 
CURNAMELa"400REF AD" 
CURNAME1a"6READLN® 
CURNAME1®"400PAGE* 
CURNAME1@"™3000GET" 
CURNAME 1®"3Q00PUT" 
CURNAME1®"50RESET" 
CURNAMELS"7REWRIT" 
CURNAME 2e"000000F" 
CURNAME 1 =" 3000NEW" 
CURNAME1Le"7p{ SPOS" 
CURNAME2m"000000¢" 
CURNAME1e"400PACKN 
CURNAMELe"6UNPACK® 


END ELSE PASSPARAMS;3 
WRITEEXPRIS 
ENO ELSE BEGIN ERRORC13)3 SKIPC99) END3% 
END ELSE BEGIN ERROR(C1)3 ASSIGNMENT ENDS% 
END OF IDENTIFIER ELSES 
CURSY®BEGINSY THEN COMPE§TAT 
cCURSY#IFSY THEN IFSTaT 
CURSY@CASESY THEN CASESTAT 
CURSYsWHILESY THEN WHrLESTAT 
CURSYsREPEATSY THEN REPEATSTAT 


CURSY#FORSY THEN FORSTAT 


THEN 
ANDS 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
ANDS 
THEN 
THEN 
AND 
THEN 
THEN 
THEN 


CURSY@WITHSY THEN WITHSTAT 
CURSYS®GOTOSY THEN GOTOSTAT 
SYMKINDCCURSYIJ#TERMINAL HENS 
BEGIN ERROR(13)3 INSYMBOL) BSKIPCSEMICOLON) ENDS% 


% #x% INTRINSIC PROCEDURE ««« 


PWRITECFALSE) 


PWRITEC TRUE) 
PREADCFALSE) 
PREADC TRUE) 
FILEHANDLING(S5) 
FILEHANDLING(2) 
FILEHANDLING( 4) 
FILEHANDLING(C 3) 


FILEHANDLING(4) 
NEWDISP 


NEWOISP 
PACK 
UNPACK 


ELSES 
ELSES 
EUSES 
ELSES 
ELSES 
ELSE% 
ELSE% 
ELSER 


ELSES 


ELSES 
ELSES 
ELSES 
ELSES 
ELSES 
ELSES 
ELSES 


ELSES 
ELSES 


ELSE 
ELSES 
ELSE ERROR( 023% 


00002540 
00002541 
00002542 
00002543 


00002544 
00002545 
00002546 
00002547 
00002548 
00002549 
00002550 
00002551 
00002552 
00002553 
00002554 
00002555 
00002556 
00002557 
00002558 
00002559 
00002560 
00002561 
00002562 
00002563 
00002564 
00002565 
00002566 
00002567 
00002568 
00002569 
00002570 
00002571 
00002572 
00002573 
00002574 
00002575 
00002576 
00002577 
00002578 
00002579 
00002580 
00002581 
00002562 
00002583 
00002584 
00002585 
00002566 
00002587 
00002588 
00002589 
00002590 
00002591 
00002592 
00002593 
00002594 
00002595 


4a4-4—-4 
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0009 
0009 
0012 
0012 


0034 
0034 
0035 
0036 
0039 
0040 
0040 
0040 
0040 
0040 
0040 
0041 
0070 
0070 
0070 
0072 
0074 
0077 
0078 
0079 
0080 
0080 
0082 
0084 
0087 
0091 
0095 
0099 
0103 
0107 
O1i1 
0113 
0116 
0119 
0122 
0124 
0128 
0135 
0136 
0215 
0217 
0219 
0219 
0221 
0223 
0226 
0228 
0230 
0232 
0235 
0237 
0238 


@®eeeeeee%eereeee#%e#ee8eee80e @e80 @ 


END OF STATEMENTS 
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00002596 tT O24)1 
244 LONGs NEXT SEG 


é 


PRTC367) &* 
PRTC370) ! 


PRTC371) 
PRT(372) 


PR1T(3734 


PRT(374) 
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PART 71% TYPE DECLARATIONS, 


% 
% 
% 
& 
% 
% 
% 
z 


BIABTALZAAALALEALLAALTASALLALARARAALALAALEASAALAALRALAALSIATTALLALTALILZ 


BR BE BL BL da BE BE BE aC BE dE 


REAL VALX1eVALX25% 
VALX1 
VALX2 

INTEGER TYPEXLeTYPEX233 
TYPEX1 
TYPEX2 

BOOLEAN PACKED! 
PACKED 

% 


PROCEDURE FIELOLISTCRECTABsF IRSTADDReLASTADDR) 3% 
FIELOLIST 

VALUE RECTABsFIRSTADDRSS 

INTEGER RECTABeFIRSTADDReLASTADDR3® 

FORWARD 3% 

% 


DEFINE SUBRANGE® Bees SUBRANGE DECLARATION x#« 
BEGIN LEEKS EERE EEE EEE RE 
CONSTANTCVALXZ eo TYPEX1 232% 
IF TYPETABICTYPEX1],FORM>CHAR THEN ERROR(11)3% 
IF CURSY#DOUBLEDOT THEN ERROR( 53232 . 
INSYMBOL3% 
CONSTANTCVALX2eTYPEX2) 33 
IF TYPEX1>0 AND TYPEX2>0 THENS 
IF TYPEXIATYPEX2 THEN ERROR( 11) ELSER 
IF VALX1>VALX2 THEN ERROR(54)5% 
Tis=eTYPETABICTYPEX1),FORMs IF TiSSYMBOLIC THEN TissSUBTYPE;S 
NEWTYPES TTYPESSTYPEINDEXI® 
TL SIZEtETSIZEtmid T1,STRUCT#e0S TL, MAINTYPEtETYPEX4 3% 
TYPETABLETYPEINDEX)$aT 13% 
TYPETAB2ETYPEINDEXJ$@VALX4s TYPETAB3CTYPEINDEX) fe VALX29% 
END OF SUBRANGE#52 
% 
% 
PROCEDURE TYPEDECLCTTYPE*TSIZE)3% 


PRT(375) = TYPEBECL 


INTEGER TTYPEeTSIZE3S% 
BEGINS 
PROCEDURE TYPERRCERRNUMSTTYPEsTSIZE23% 


PRT¢376) = TYPERR 


VALUE ERRNUMS% 

INTEGER ERRNUM,TTYPE*TSIZEsg 

BEGIN ERRORCERRNUM) 3% 
TTYPEt@TSIZEtsO3K 

END 5% 


00002598 
00002599 
00002600 
00002601 
00002602 
00002603 
00002604 
00002605 
00002606 
00002607 
00002608 
00002609 
00002610 


00002611 


00002612 


00002613 
00002614 


00002615 
00002616 
00002617 
00002618 
00002619 
00002620 
00002621 
00002622 
00002623 
00002624 
00002625 
00002626 
00002627 
00002628 
00002629 
00002630 


. 00002631 


00002632 
00002633 
00002634 
00002635 
00002636 
00002637 


00002638 
00002639 
00002640 


START OF SEGMENT 


00002641 
00002642 
00002643 
00002644 
00002645 


Sele en ee een 


44444 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0379 


0375 


0375 
Q375 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 


0375 

0375 

0375 
Tere rel 


0000 
0000 
0000 
0000 
0002 
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STACK¢F 42) 
STACK(F 43) 
STACK(F 44) 
STACK(F 45) 
STACKCF #6) 
STACK(Fe7) 
STACK(F 410) 
STACK(F 411) 
STACK¢F 412) 


STACK( F413) 


z 
INTEGER RECINX»ARRSTRUCTsTXsSXoTleT2eT3eToNd® 
REC INX 
ARRSTRUCT 
TX 
Sx 
Tt 
T2 
Ts 
T 
N 
BOOLEAN FIRST3% 
FIRST 
% 
PACKEDIeFALSES£ 
IF CURSYsIDENTIFIER THEN Zee* SIMPLE TYPE DECLARATION **m 
BEGIN Eee EE eR ee KORE RE OR Ke 
SEARCHIS 
IF FOUND THEN’ 
BEGINS 
IF THISID,JDCLASSSTYPES THEN? 
BEGINS 
TTYPESeTHISID, TYPES TSIZEteTYPETABALTTYPE),SIZESS 
INSYMBOLI% 


END ELSE IF THISID,1IDCLASS@CONST THEN SUBRANGES 
ELSE TYPERR(7sTTYPEsTSIZE)3% 


STACKCF 414) s *DISPLAY POINTER 


END ELSE BEGIN TYPERR({eTTYPE*sTSIZE)’ INSYMBOL END3% 
END ELSES | 
IF CURSYSCHARCONST OR CURSY@PLUS OR CURSY=MINUS THEN SUBRANGE ELSES 
IF CURSYRLPAR THENS 
BEGINS 
NswO3% 
NEWTYPES T3,ITDCLASSSSCONSTS T3,TYPEI*TYPEINDEX$S 
DO BEGINS 
INSYMBOLSS 
IF CURSYsIDENTIFIER THENS 
BEGINS 
NEWNAME (CURNAME 1 sCURNAME2,CURLEVEL) 32 
T3,INFOt@NS NAMETABS(CURLEVELs THISINDEX) $=T33% 
NOmN+13 [NSYMBOLSS 
END ELSE ERROR(9)5% 
END UNTIL CURSY#COMMA3® 
IF CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDI® 
TatwSYMBOLICS TL, STRUCT# 203% 
Ta ,SIZEV@TSIZEtels TTYPE Se TYPEINDEX3S 
TYPETABICTYPE INDEX] SaT35% 
TYPETAB2ETYPEINDEX}4@03 TYPETAB3CTYPEINDEX) tmN@43% 
IF CURSY@RPAR THEN INSYMBoL 3% 
END ELSES 


IF CURSY#ARROW THEN Ze*e POINTER DECLARATION #4 
BEGIN Dek ee ee OO 


00002646 
00002647 


00002648 


00002649 
00002650 
00002651 
00002652 
00002653 
00002654 
00002655 
00002656 
00002657 
00002658 
00002659 
00002660 
00002661 


00002662 
00002663 
00002664 
00002665 
00002666 
00002667 
00002668 
00002669 
00002670 
00002671 
00002672 
00002673 
00002674 
00002675 
00002676 
00002677 
00002676 
00002679 
00002680 
00002681 
00002682 
00002683 
00002684 
00002685 
00002686 
00002687 


a1 


—_ 


eee ee ee | 


AHHH MAMAN HHH tt tt st ss 


0002 
0002 


0002 


0002 
0002 
0003 
0004 
0005 
0034 
0034 
0034 
0036 
0036 
0039 
0040 
0249 


0251 
0255 
0255 
0466 
0467 
0467 
0468 
0477 
0477 
0477 
0478 
0476 
0501 
0505 
0507 
0508 
0509 
0512 
0514 
05156 
0519 
0522 
0524 
0524 
0524 
0525 


INSYMBOL3S 
IF CURSY®]DENTIFIER THENS 
BEGINS 
NEWTYPES TTYPESSTYPE;NDEXS Tit ePOINTERS32 
TL, SIZEG@TSIZE tals Ty STRUCTIBOsS 
TYPETABLECTYPEJNDEXJ] 3eT15% 
SEARCHES 
IF FOUND THENS 
BEGINZ 
IF THISID,IDCLASSeTYPES THEN 
TYPETABICTYPEINDEX) ,POINTTYPES ®THISID, TYPE ELSES 
TYPERR(7eTTYPEsTSIZED3% 
END ELSES 
BEGINS 
IF NUMPNTRS<MAXPNTRS THEN NUMPNTRS${eNUMPNTRS¢4 ELSE ERROR(52)3 
PNTRTABLENUMPNTRS) $a CURNAMEY3 PNTRTAB2(NUMPNTRS) SeCURNAMEQ3% 
PNTRTAB3CNUMPNTRS] ta TYPE INDEX SS 
ENDSS 
INSYMBOL?2 
END ELSE TYPERRC9OSTTYPE,TSIZE)3% 
END OF POINTER DECLARATION §LSEX% 
BEGIN% 
IF CURSYSPACKEDSY THEN BEGIN PACKEDSeTRUES INSYMBOL END3% 


IF CURSY@ARRAYSY THEN Ze*e ARRAY DECLARATION *#«#* 
BEGIN ea OO ON OR ke 
INSYMBOL?% 
IF CURSY#LBRACKET THEN ERROR( 47) ELSE INSYMBOLIS 
TewO3') FIRSTIwTRUESS 
DO BEGINS 
IF FIRST THEN FIRSTseFALSE ELSE INSYMBOL?% 
TYPEDECL(TXoSX)3% 
IF TX>O0 THEN’ 
BEGINS 
IF TYPETABIL TX], FORM>CHAR THEN ERROR(48)3% 
TIMMARRAYSS TL, INXTYPESSTXS TL, ARRTYPESET3% 
T2teTYPETAB2CTXJS T3IteTYPETAB3LTX)3% 
IF T3"T2>1022 THEN ERROR(61)3% 
Tr SIZES @MING 1023, 1 3°T 26453 
NEWTYPE3S 
TYPETABICTYPEINDEXIJ uTi33 
TYPETAB2LTYPEINDEXIJ 49723 TYPETAB3LTYPEINDEXJ] 3@733% 
TimTYPEINDEX33 
ENO3% 
ENO UNTIL CURSY#COMMA;3 
IF CURSY#RBRACKET THEN EFRROR(59) ELSE INSYMBOLIS 
IF CURSY#OFSY THEN BEGIN ERROR(18)3 SKIPCOFSY) ENDI® 
INSYMBOL32 
TYPEDECLCTXeSX23% 
IF TYPETABy( TX] ,FORM2FILES THEN ERROR(60)3% 
ARRSTRUCTIaTYPETABY (TX) ,STRUCT3S 
WHILE T>0O DO 
BEGINS 
TLtmTYPETABLETIE T3ateTi,ARRTYPEDS 
TL,ARRTYPES@TX3 «TI, STRUCTERARRSTRUCTI®ARRSTRUCT4152% 
TL SIZES aSXteMIN(C1024,SXxT1,SIZE) 5% 
TYPETABLIECTIOMTIS TxteT2 Tiel33% 


00002688 
00002689 
00002690 
00002691 
00002692 
00002693 
00002694 
00002695 
00002696 
00002697 
00002698 
00002699 
00002700 
00002701 
00002702 
00002703 
00002704 
00002705 
00002706 
00002707 
00002708 
00002709 
00002710 
00002711 
00002712 
000027133 
00002714 
00002715 
00002716 
00002717 
00002718 
00002719 
00002720 
00002721 
00002722 
00002723 
00002724 
00002725 
00002726 
00002727 
00002728 
00002729 
00002730 
00002731 
00002732 
00002733 
00002734 
00002735 
00002736 
00002737 
00002738 
00002739 
00002740 
000027414 
00002742 
00002743 
00002744 
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0526 
0526 
0527 
0527 
0534 
0536 
0540 
0569 
0569 
0569 
05714 
0574 
0577 
0S77 
0577 
0581 
0584 
0585 
0585 
0585 
0588 
0588 
0589 
0591 
0591 
0592 
0592 
0593 
0596 
0597 
0596 
0600 
0601 
0602 
0602 
0605 
0609 
0611 
0614 
0619 
0624 
0625 
0626 
0628 
0628 
0630 
0633 
0635 
0636 
0637 
0640 
0641 
0643 
0643 
0645 
0650 
0655 


® 

@ 

ENDIZ 00002745 T 0658 

TTYPESmTX3 TSIZEMESX3% 00002746 T 0660 

@ END OF ARRAY DECLARATION ELSES 00002747 T 0662 

% 00002748 T 0662 

IF CURSY@FILESY THEN Ze** FILE DECLARATION *#% 00002749 T 0662 

. BEGIN Bee EEE EE EE 00002750 T 0663 

INSYMBOL 3% 00002751 T 0663 

IF CURSY#OFSY THENS 00002752 T 0664 

© BEGIN ERROR(18)3% 00002753 T 0665 

IF CURSY#IDENTIFIER THEN JNSYMBOLIS 00002754 T 0666 

END ELSE INSYMBOL3SS : 00002755 T 0668 

6 TYPEDECLCTX»SX)3% 00002756 T 0669 

IF TX>O THENS 00002757 T 0670 

BEGIN TiwTYPETABI[TX)3% 00002758 T 0670 

@ IF T,FORM2FILES THEN ERROR(SO) ELSES 00002759 T 0672 

IF T,STRUCT>y THEN ERROR(49)3% 00002760 T 0674 

ENDS% 00002761 T 0677 

x | NEWTYPES TTYPESSTYPEINBEXSS 00002762 T 0677 

TYIBIF T,FORMMCHAR THEN TEXTFILE ELSE FILES#% 00002763 T 0663 

TL SIZEGwTSIZE&ESXS «TLL FILETYPESSTX3% 00002764 T 0687 

e Tye STRUCTIwgd3% 00002765 T 0694 

TYPETABLETYPEINDEX] teT1 33% 00002766 T 0693 

END OF FILE DECLARATION ELSES 00002767 T 0694 

e % 00002768 T 0694 

IF CURSYeSETSY THEN Zee SET DECLARATION #%«% 00002769 T 0694 

BEGIN LEeRREHERKEKREKREEKKEEEEKEK 00002770 T 0695 

r INSYMBOL 3% 00002771 T 0696 

IF CURSY#OFSY THENS 00002772 T 0696 

BEGIN ERROR(18)33 00002773 T 0697 

@ IF CURSY>CHARCONST THEN INSYMBOL3S% 00002774 T 06986 

END ELSE INSYMBOLS% 00002775 T 0700 

TYPEDECLCTXeSX)3% 00002776 T 0701 

@ IF TX>0 THENS 00002777 T 0702 

BEGINS 00002778 tT 0703 

IF TYPETABICTX],FORM>CHAR THEN ERROR(48) ELSES 00002779 T 0703 

@ IF TYPETAB2(TX]<O OR TYPETAB3{TXJ>38 THEN ERROR(51)33% 00002780 T 0706 

ENDS’ 00002781 T 0710 

NEWTYPES TTYPESSTYPEJNDEXSS 00002782 T 0710 

@ TytmSETS Ty, SETTYPEtaTXs = Ty,STRUCTSe03% 00002783 T 0716 

Ty SIZEseTSIZEteys TYPETABYCTYPEINDEXJtuT 43% 00002784 T 0720 

TYPETABO2LTYPEINDEX] §mTYPETABO[TXIJ 3% 00002785 T 0724 

@ TYPETAB3CTYPEINDEXJteTYPETAB3( TX]3% 00002786 T 0725 

END OF SET DECLARATION ELSES 00002787 T 0727 

% 00002788 T 0727 

@ IF CURSYSRECORDSY THEN Ze%* RECORD DECLARATION «x 00002789 T 0727 

BEGIN Se I 00002790 T 0728 

IF LASTREC*1>CURLEVEL TWEN LASTRECIRLASTREC#12 ELSE ERROR(55S)3% 00002791 T 0729 

@ RECINXIsLASTREC3IS 00002792 T 0733 

BLOCKTABCRECINX] S@NUMBLOCKStaNUMBLOCKS413% 00002793 T 0734 

INSYMBOL3& 00002794 T 0736 

& FLELDLISTCRECINXeO,SX)3g 00002795 T 0736 

IF SX>1022 THEN BEGIN ERROR(56)4 SXt*1022 ENDS 00002796 T 0738 

NEWTYPES TTYPEIM@TYPEINDEX3 00002797 T 0740 

e TYPSRECORDS TL,RECTABHSRECINXS T1,STRUCTI#43% 00002798 T 0746 

Ti, SIZEtBTSIZESwSXS TYPETABILETYPEINDOEXI] 8aT13% 00002799 T 07514 

TYPETAB2LTYPEINDEX)$@03 TYPETAB3CTYPEINDEX) §@SX43% 00002800 T 0754 

@ IF CURSY#ENDSY THEN BEGIN ERROR(24)3 SKIPCENDSY) ENDS 00002801 T 0757 
@ 


STACK (Fe2) 
STACK (F +3) 


STACK(F 44) 
STACK(F 45) 
STACK CF 46) 
STACK(Fe7) 


IF CURSYSENDSY THEN JNSYMBOL32 
END ELSE BEGIN ERROR(4)3 SKIP(99) ENDSY 
END3% 
END OF TYPEDECL3% 


x 
% 
PROCEDURE FIELDLISTCRECTABsFIRSTADDReLASTADDR) 3% 
VALUE RECTABsFIRSTADDRE& 
INTEGER RECTABeFIRSTADDReLASTADDRES 
BEGIN’ 
INTEGER ARRAY ILISTCOSLISTLENGTHI3S% 


STACK(F #10) = CTYPE 


STACK (F411) 
STACK¢(F 412) 
STACK(F 413) 
STACK(F 444) 
STACK (F415) 
STACK(F 416) 
STACK(CF 417) 


STACK¢F.420) 


STACK(F 421) 
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ILIST 
INTEGER LISTINXS3 
LISTINX 
INTEGER CASETYPE s ADDR» MAXADDReINDEXaCTYPEe TXeSXoTieT3eLLIMeULIMel 3% 
CASETYPE 
ADDR 
MAXADDR 
INDEX 
TX 
SX 
T4 
13 
LBIM 
ULIM 
I 
BOOLEAN FIRST3S 
FIRST 
REAL CVAL3% 
CVAL 
LABEL CASETYPE!DeCASEPART,EXIT#S 
z 
ADDRteF IRSTADOR3& 
DO BEGINS 


WHILE CURSYsSEMICOLON DO INSYMBOL#% 
IF CURSY@CASESY THEN GO To CASEPARTS% 
IF CURSYS]DENTIFIER THEN? 

BEGIN? 
LISTINX#eO} 
DO BEGINS 

IF FIRST THEN FIRSTtapaLSe ELSE I[NSYMBOLIS 

IF CURSYe IDENTIFIER THEN? 

BEGIN 
IF LISTINX2LISTLENGTH THEN BEGIN ERROR(37)38 LISTINX##0 ENDS 
LISTINXS@eLISTINX44 38% 
NEWNAMECCURNAME1 eCURNAME2RECTAB) 3% 
ILISTCLISTINAX seTHIS INDEX 3% 
INSYMBOLI3 

END ELSES 

BEGIN ERROR(9) 3% 


FIRSTieTRUE SS 
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00002802 
00002803 
00002804 
00002805 


T 
T 
T 
T 


777 LONG» 


00002806 
00002807 
00002808 
00002809 
00002810 
00002811 
00002612 


START OF SEGMENT 


00002813 
00002814 


00002815 
00002816 


00002817 
00002818 
00002819 
00002820 
00002821 
00002822 
00002823 
00002824 
00002825 
00002826 
00002827 
00002828 
00002829 
00002830 
00002831 
00002832 
00002833 
00002834 
00002835 
00002836 


T 
T 
T 
T 
T 
T 
T 
* 


T 
T 
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0760 
0762 
0764 
0764 
NEXT SEG 


0375 
0375 
0375 
0375 
0375 
0375 
0375 


Ke 


0001 
0001 


0001 
0004 


0001 
000} 
0004 
0002 
0003 
0005 
0006 
0007 
0007 
0009 
0010 
0012 
0013 
0013 
0016 
0017 
0040 
0041 
0042 
0042 


2 
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IF CURSY#COMMA THEN INSYMBOLIS 
ENDS 
END UNTIL CURSY#COMMA332 
IF CURSY#COLON THEN BEGIN ERROR(26)% SKIPCCOLON) ENDS 
INSYMBOLSS 
TYPEDECLCTXoSX)3% 
IF TX>0 THEN TF TYPETABYCTX),FORMZ2FILES THEN ERROR(57)3% 
T3,IDCLASS#aeVARS T3,TYPEMRTX3S% 
FOR m1 STEP 1 UNTIL UYSTINX DOZ% 
BEGINS 
T3,INFOtRADDRS ADDRIeMINCADOR4SXe1024)32% 
NAMETAB3CRECTABsILISTCI) J] tuwT3s% 
ENDI 
ENDS 
END UNTIL CURSY#SEMICOLON3% 
LASTADDRIKADORS & 
GO TO EXITIS 
% 
CASEPARTS& 
LISTINX#sO} LASTADDRESADDRS INDEXSe"133 
INSYMBOLS% 
IF CURSY#IDENTIFIER THENS 
BEGINS 
SEARCHIS 
IF FOUND AND THISID,IDCLASSsTYPES THEN GO TO CASETYPEIDES 
NEWNAMECCURNAMES sCURNAME2,RECTAB)# INDEX#aTHISINDEXIZ 
INSYMBOLSS 
IF CURSY#COLON THEN ERROR(26)3% 
INSYMBOL3S - 
IF CURSY®]DENTIFIER THENS 
BEGIN’ 
SEARCH}: 
IF FOUND THENS 
BEGINS 
IF THISIO,IDCLASSsTYPES THEN 
BEGINS 
CASETYPEID! CASETYPES STHISID, TYPES Ti SmTYPETABICCASETYPE)32 
LLIM@teTYPETAB2(CASETYPE)S ULIMtsTYPETAB3(CASETYPEI/% 
IF T1,FORM*CHAR THEN ERROR(48)3% 
IF INDEX20 THENS 
BEGIN 
T3,IDCLASSIaVARs T3,TYPENSCASETYPES T3,INFOSPADDRIZ 
ADDRtsLASTADDRteADDR41$ NAMETAB3ERECTABs INDEX) IeT33% 
END3S 
INSYMBOLS2 
END ELSE BEGIN ERROR(7)3 SKIPCOFSY) END3% 
END ELSE BEGIN ERROR(4)3 SKyPCOFSY) END3% 
EnD ELSE BEGIN ERROR(9)3 SKIPCOFSY) END3% 
END ELSE BEGIN ERROR(C9)3 SKIPCOFSY) END3% 
IF CURSY#OFSY THEN BEGIN EFRROR(48)3 SKIPCRPAR) ENDS 
IF CURSYOFSY THEN INSYMBOLS% 
IF CASETYPEsO THEN BEGIN LLIMIw=MAXINTS ULIMSeMAXINT ENDSS 
DO BEGIN? 
WHILE CURSYSSEMJCOLON Do INSYMBOLs3 
IF CURSYSCHARCONST OR CURSY#PLUS OR CURSYSMINUS THENS 
BEGIN 
FIRST#taTRUESSZ 


00002837 
00002838 
00002839 
00002640 
00002641 
00002842 
00002643 
00002844 
00002845 
00002846 
00002847 
00002648 
00002849 
00002850 
000028651 
00002652 
00002853 
00002854 
00002855 
00002856 
00002857 
00002858 
00002859 
00002860 
00002864 
00002862 
00002863 
00002864 
00002865 
00002866 
00002867 
00002668 
00002869 
00002870 
000028671 
00002872 
00002873 
00002874 
00002875 
00002876 
00002877 
00002678 
00002879 
00002680 
00002881 
00002882 
00002883 
00002684 
00002685 
00002866 
000026687 
00002688 
00002889 
00002890 
00002891 
00002892 
00002893 
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0043 
0045 
0045 
0046 
0049 
0049 
0050 
0054 
0058 
0059 
0059 
0064 
0066 
0068 
0068 
0070 
0071 
0073 
0073 
0073 
0075 
0076 
0077 
0077 
0106 
0108 
0131 
0131 
0133 
0134 
0135 
0135 
0164 
0164 
0164 
0166 
0166 
0169 
0171 
0173 
0174 
0175 
0160 
0184 
0184 
0184 
0186 
01868 
0190 
0192 
0195 
0197 
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DO BEGIN? 
IF FIRST THEN FIRSTSe8FALSE ELSE INSYMBOL:% 
CONSTANTCCVALe CTYPE 3% 
IF CTYPE>O THEN? 
BEGINS ; 
IF CASETYPESO THEN CASETYPESSCTYPE ELSER 
IF CVAL<LLIM OR CVAL>ULIM THEN ERROR(14) ELSE 
CHECKTYPES(CASETYPEs CTYPE) 3% 
IF LESTINX2LISTLENGTH THEN BEGIN ERROR(30)3 LISTINX#a0O ENDS 
LISTINXPELTSTINXeg 3g 
ILISTCLISTINX] §mCVAL? [tars 
WHILE ILISTCII#CVAL DO Lewl 413% 
IF I<LISTINX THEN ERROR( 34783 
END 3% 
END UNTIL CURSY#COMMA33% 
IF CURSY#COLON THEN BEGIN ERRORC26)3 SKIPCLPAR) ENDS3 
IF CURSYSCOLON THEN INSYMBOL3S% 
IF CURSY@LPAR THENS 
BEGINS 
INSYMBOLS FIELDLISTCRECTABsADDRe MAXADDR)E2& 
IF MAXADDR>LASTADDR THEN LASTADDRIsMAXADDRES 
IF CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 
INSYMBOL3% 
END ELSE ERROR(58)33% 
END32 
END UNTIL CURSY NE@ SEMICOLON? & 
EX1TTI¢s 
END OF FIELDLIST3% 
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PART 63 THE PROCEDURE BLOCK, 


a Var eB er ean sa ern 
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PROCEDURE DECLAREVARSCPARAMs TABeFIRSTsLAST# LEVEL) 3% 
DECLAREVARS 

VALUE PARAMeFIRST»LAST#LEVELSg 

INTEGER ARRAY TABCLO]32% 

INTEGER FYRSTeLASTeLEVELIS 

BOOLEAN PARAM;% 

BEGINS 


INTEGER LEVEL1000,TYP»NAM,NAMTABsTL ole Je RECSIZE2% 


LE¥EL1000 


ws RECSIZE 


FNAME 


% 


BOOLEAN REALVARSARRAYVAReFIRSTDIMPEXTFILESS 


REALVAR 
ARRAYVAR 
FIRSTDIM 
EXTFILE 


ALPHA FNAME32% 


INTEGER FNLENGTHeFNSTART? & 


FNLENGTH 
FNSTART 


LEVEL OOOtRLEVELx10003% 
FOR TtwFIRST STEP 1 UNTIL LAST pOg 
BEGN& 
NAMtwmTABCII, (6991073 NAMTABSENAMETAB3( LEVEL eNAMIJ 3% 
TYPteNAMTAB, TYPES Ty ba TYPETABICTYPJ3% 
IF NAMTAB,IDCLASS GEQ FUNC THENS 
BEGIN? 
IF REALVAR OR ARRAYVAR THEN 
BEGINS 
GENC™3% 9497938 
REALVARteARRAYVARS@FALSESS 
ENDS 
IF NAMTAB,JOCLASS#FUNC THEN GENCTREAL 2 5¢4)9% 
GENC"PROCEDU",85123% 
GENIDC™V"sLEVELLOOO+NAM,5)3 GENCE "ete 78% 
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END ELSES% 
IF Ti,STRUCT&O THEN 
BEGIN? 
IF ARRAYVAR THEN BEGIN GENC "3510723 ARRAYVARESFALSE ENDS 
IF REALVAR THEN GENC",",4097) ELSES 
BEGIN GENCTREAL™ 250822 REALVAR! «TRUE ENDS 
GENIOC™V"sLEVELLOOO+NAM, 5) 3% 
END ELSES% 
BEGINS 
1fF REALVAR THEN BEGIN GENC™S%5407)8 REALVARS@FALSE ENDS 
IF Ti, FORMeFILES THEN Zeee ARRAY/RECORD ¥4® 
BEGINS 
IF ARRAYVAR THEN GENC'o"e40e7) ELSES 
BEGIN GENC™ARRAY",6¢3)3 ARRAYVAREETRUE END32 
GENTIOC®VYe>LEVELLOOOHNAM®5)3 GENC™L%5197)3% 
FIRSTDIMSaTRUE SS 
DO BEGINS 
IF FIRSTOIM THEN FIRSTDIMEBFALSE ELSE GENC™o"o to 793% 
GENINTCTYPETAB2L TYP 323% 
IF NOT PARAM THEN 
BEGIN GENC™§"e40e7)3 GENINTCTYPETAB3CTYP)) ENDS 
TYPte]F Ty ,FORMBARRAYS THEN T1,ARRTYPE ELSE REALTYPESS 
TitaTYPETABICTYPJ3% 
END UNTIL T1,STRUCTwO3% 
GENC™]"%0407)3% 
END ELSES 
BEGIN Baek FILE eee 
IF REALVAR OR ARRAYVAR THENS 
BEGIN GENC™3%—o1,7)3 REALVARE#ARRAYVARERFALSE ENDSS 
IF T1,FORM@TEXTFILE AND NOT PARAM THEN 
BEGIN 
IF NUMFIJLES2MAXFILES THEN ERROR(97)% 
ELSE NUMFILESt#NUMFILES413% 
FILETABLNUMFILES] seNAMi¢ 
END33 
EXTFILEteFALSEFS 
FNAME taNAMETABICLEVELeNAMI]32 
FNLENGTH &§& FNAME,NAMELENGTHS FNSTART &8@ 8*FNLENGTHS & 
IF FNLENGTH LEQ 6 THEN & 
BEGIN2 
FOR Jte1 STEP 1 UNTIL NUMEXTFILES DO 
IF FNAMESEXTFILETABCU] THEN EXTFILE?sTRUESS 
ENDS% 
IF EXTFILE AND NOT PARAM THEN’ 
BEGINS 
IF NUMFILES GEQ@ mMAXFILES THEN ERROR(97)% 
ELSES 
NUMFILES ts NUMFYILES + 133% 
FILETABCNUMFILES) $8 *NAM * 43% 
GENC™"DEFINE "2 722)3 GENIDOCTR* se LEVELLOOO+NAMe5 EE 
GENC%wH on 73% 
GENCFNAMEe FNLENGTHeFNSTART)3 & 
GENCW#I%,206)3 GENCMSAVE"s554)3 GENCTFILE%s 5,432 
GENCFNAME sFNLENGTHeFNSTART)I & 
ENO ELSES 
BEGINS 
GENC™F ILE" 2 5e04)8 GENIDC™F AR LEVEL 1 OOO4NAMS)5) 9% 
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00002963 
00002964 
00002965 
00002966 
00002967 
00002968 
00002969 
00002970 
00002974 
00002972 
00002973 
00002974 
00002975 
00002976 
00002977 
00002978 
00002979 
00002980 
00002984 
00002982 
00002983 
00002984 
00002985 
00002986 
00002987 
000029868 
00002989 
00002990 
00002991 
00002992 
00002993 
00002994 
00002995 
00002996 
00002997 
00002998 
00002999 
00003000 
00003004 
00003002 
00003003 
00003004 
00003005 
00003006 
00003007 
00003008 
00003009 
00003010 
000030114 
00003012 
00003013 
00003014 
00003015 
00003016 
00003017 
00003018 
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0062 
0062 
0066 
0066 
0077 
0087 
0097 
0409 
0109 
0112 
0122 
0123 
0124 
0134 
0144 
0165 
0166 
0167 
0179 
0223 
0223 
0277 
0281 
0282 
0283 
0292 
0292 
0293 
0294 
0304 
0306 
0307 
0309 
0311 
0312 
0312 
0313 
0314 
0317 
0318 
0318 
0320 
0324 
0324 
0325 
0326 
0327 
0328 
0329 
0331 
0353 
0362 
0371 
0398 
0407 
0407 
O4ait 


@ 
® 
ENDIZ 00003019 T 0432 
1F NOT PARAM THENS 00003020 T 0432 
& BEGINS 00003021 T 0433 
GENC™ DISK"s603)) GENC"SERTAL%2792)4% 00003022 T 0433 
IF EXTFILE THEN’ 00003023 T 0451 
& BEGINS 00003024 T 0451 
IF ALGOLCNT LSS 13 THEN WRITEALGOL3S 00003025 T 0452 
GENC™CO10)", 503238 00003026 T 0454 
e@ GENCh",1,7)3% 00003027 T 0463 
GENCFNAMEs+FNLENGTHeFNSTART)3S & 00003028 T 0472 
GENC™HM L147 )5 GENC™/" ete 7 3% 00003029 T 0484 
@ IF ALGOLCNT<9 THEN WRITEALGOL3S 00003030 T 0499 
GENC™#",3,7)3 GENCUSERe791)3 GENC™"% oi, 7I3E 00003031 T 0500 
END ELSES 00003032 T 0532 
@ BEGINS 00003033 T 0532 
GENC™(L208%14,4)3 GENC300)% 0404 )3% 00003034 T 0532 
END33 00003035 T 0550 
. GENC™C10%e 305958 00003036 T 0550 
RECSIZEseIF T1,FORMBRTEXTFILE THEN 10 ELSES 00003037 T 0559 
IF TYPETABSCTL, FILETYPE], STRUCT=0 THEN 1 ELSES 00003038 T 0562 
) TYPETAB3CTI, FILETYPE J=TYPETAB2ET1, FILETYPE ]+15% 00003039 T 0565 
GENINTCRECSIZE)3 GENC™e 9107758 00003040 T 0568 
IF RECSIZESy OR RECSI{ZE#10 THEN GENINT(150)% 00003044 T 0624 
° ELSE GENINTCRECSIZE)3% 000030462 T 0670 
IF ALGOLCNT LSS 10 THEN WRITEALGOLIS 00003043 T O714 
GENC™e SAVE" 2 623)3 GENC™30%1296)3% 00003044 T 0716 
@ GENC™)3%9206)3% 00003045 T 0734 
END ELSE GENC"3",497)33% 00003046 T 0743 
GENC™ARRAY"0623)3 GENIDC*V" pp LEVELLOOO+NAM® 55% 00003047 T 0755 
e GENCE e407 3% 00003048 T 0776 
IF TYPETABICTI,sFILETYRE],STRUCT@O THENS 00003049 T 0785 
BEGINS 00003050 T 0787 
& IF PARAM THEN GENC"O0%515e7) ELSE GENC"080%,325)5% 00003051 T 0788 
END ELSES 00003052 T 0809 
BEGINS 00003053 T 0809 
e GENINTCTYPETAB2CTysKILETYPEJ 23% 00003054 T 0809 
IF NOT PARAM THEN 00003055 T 0854 
BEGIN GENC™E"ets7)3 GENINTCTYPETAB3CTi,FILETYPEJ) ENDS 00003056 T 0854 
e ENDS 00003057 T 0909 
GENC%)3%,206)5% 00003058 T 0909 
GENC" INTEGER" ,861)3 GENTDC" I" sLEVELIOOO+NAMs5 3% 00003059 T 0918 
 ] GENC™E™ edo 7 8% 00003060 T 0939 
END3S 00003061 T 0948 
END3% 00003062 T 0948 
@ END OF LOOPS 00003063 T 0946 
IF REALVAR OR ARRAYVAR THEN GENC™3 ¥ot07)3% 00003064 T 0954 
END OF DECLAREVARS}2% 00003065 T 096} 
r 38 1S 978 LONGe NEXT SEG 2 
® 
% 00003066 T 0375 
& % 00003067 T 0375 
PROCEDURE PARAMETERLISTSS 00003068 T 0375 
PRT¢401) «© PARAMETERLIST 
& BEGINS 00003069 T 0375 
@ 
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INTEGER FIRSTPARAMsCURKIND oe Plo PXe le 13% 


a FIRSTPARAM 
= CURKINO 
= Pt 
mw PX 
a | 
a T 
BOOLEAN FIRSTI£ 


STACK¢F 410) « FIRST 


% 
DEFINE NEWPARAME’ 
BEGINS 
IF NUMPARAMS2MAXPARAMS THENS 
BEGIN ERRORC70)3 NUMPARAMSSeMAXPARAMS@10 END3% 
NUMPARAMS# @NUMPARAMS 41 38% 
END OF NEWPARAM#S2 


NEWPARAMS FIRSTPARAMtaNUMPARAMS33 
IF CURSYs@LPAR THENS 
BEGNZ 
DO BEGIN? 
INSYMBOLS% 
IF CURSY@VARSY OR CURSYeFUNCSY OR CURSYSPROCSY THENS 
BEGIN? 
CURKINDtwIF CURSYeVARSY THEN VAR” ELSES 
IF CURSYmFUNCSY THEN FUNC ELSE PROCIS 
INSYMBOL!% 
END ELSE CURKINDS@CONSTS& 
FIRSTimTRUES PL SsNUMPARAMS41 3% 
DO BEGINS 
IF FIRST THEN FIRSTeerFALSE ELSE INSYMBOL3% 
IF CURSYe]DENTIFIER THEN 
BEGINS 
NEWNAME CCURNAME 1 eCURNAME QeCURLEVEL 41) 3% 
PXteTHISINDEXS = PXsPARAMKINDISCURKIND3% 
PX»PARAMLEVELSsCURLEVEL 4133 
NEWPARAMS PARAMTABENUMPARAMS) tePX33 
END ELSE ERROR(9)3% 
INSYMBOL 32 
END UNTIL CURSY#COMMAS3 
IF CURSYSCOLON THENS 
BEGIN? 
IF CURKINDSPROC THEN €RRORC90)8% 
INSYMBOLSS 
IF CURSYsIDENTIFYTER THENS 
BEGINS 
SEARCHIS 
IF FOUND THENZ 
BEGINS 
IF THISID,IDCLASSeTYPES THENS 
BEGINZ 
T3teTHISID, TYPES 
FOR I8eP1 STEP 3 UNTIL NUMPARAMS DOS 
PARAMTABLIJ],PARAMTYPEtaT 35% 
IF CURKINDwCONST OR CURKINDaVAR THENS 
BEGINS 
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0059 
0060 
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0065 
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STACK(F 42) 
STACK (Fe3) 
STACK(F 44) 
STACK¢(F 45) 
STACKC(F +6) 
STACK(F47) 
STACK (F410) 


STACK¢F 411) 


STACK¢F 412) 
STACK (F413) 


STACK(F 414) 
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TemTYPETABi Tg] 7% 
IF TeFORM@FYLES THEN? 
FOR ItmPqy STEP ¢ UNTIL NUMPARAMS DO 
PARAMTABL]),PARAMFILES#413% 
IF TeSTRUCT>O AND CURKINDSCONST THEN ERROR(94)38% 
END ELSE IF T,STRUCT>0O THEN ERROR(38)3% 
END ELSE BEGIN FRRORC7)3 T3880 ENDIS 
END ELSE BEGIN ERROR(1)3 T3880 ENDIS 
END ELSE BEGIN ERROR(Q)3 T3#a0 ENDS 
INSYMBOLS% 
END ELSES 
BEGINS 
IF CURKIND#PROC THEN ERROR(7)3% 
T39wO03F 
ENDS% 
T3,IDCLASSteCURKIND3 TB,FORMALE 3132 
FOR [#P% STEP 41 UNTIL NUMPARAMS 00% 
NAMETABS3CCURLEVEL41»PARAMTABEL I] e¢ePARAMNAME ]8 #1332 
END UNTIL CURSY#SEMICOLON32 
If CURSY#RPAR THENS 
BEGIN ERROR(46)3 SKIPCRPARISS 
IF CURSY@RPAR THEN |NSYMBOLS% 
END ELSE I{NSYMBOL3% 
END SX 
PARAMTABCFIRSTPARAM] !&NUMPARAMS@F [RSTPARAMSS 
END OF PARAMETERLIST!I2 


z 
% 
PROCEDURE BLOCKS 
BLOCK. 
BEGINE 
INTEGER INDEX CTYPE sNUMFORWARDSs Tr T3eTXn 13% 
a JNDEX 
a CTYPE 
= NUMFORWARDS 
a T 
a T3 
a TX 
se | 
REAL CVALIS 
= CV¥AL 
ALPHA C1eC23Z 
= Ce 
« (2 


BOOLEAN VALUEPARAMSeFUNSS 
= VALUEPARAMS 
= FUN 
LABEL START#3 
z 
INTEGER LABTABTOP,CONSTTABTOPsTYPETABTOPs,PARAMTABTOPs TOPREC.& 
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00003124 
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00003128 
00003129 
00003130 
00003131 
00003132 
00003133 
00003134 
00003135 
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00003137 
000031358 
000031439 
00003140 
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00003142 
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157 LONG 
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01086 
0109 
0110 
O1l2 
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0120 
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STACK¢(F 416) 
STACK (F417) 
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STACK (F421) 
STACK (F422) 


STACK (F423) 
STACK( F424) 


LABTABTOP 
CO@NSTTABTOP 
TYPETABTOP 
PARAMTABTOP 


TQPREC 


FORMERFIRSTLABsFIRSTFILE SS 


FORMERFIRSTLAB 
FIRSTFILE 


% 


STARTS 


FORMERFIRSTLABI#FIRSTLABSS 

LABTABTOP tsNUMLABS3 FIRSTLABtsLABTABTOP4132% 
CONSTTABTOPS @NUMCONSTS3% 
TYPETABTOPtmNUMTYPES?S 

PARAMTABTOP ImNUMPARAMS3 2% 

TOPRECSeLASTRECSS 

FIRSTFILEt®NUMFILES +133 


TOPLEVELSeCURLEVELS2 
IF CURLEVEL?1 THEN GENC"BEGIN" + 693)3% 


IF CURSYsSLABELSY THEN %**6 LABEL DECLARATION wax 
BEGIN Bee ee OK ee 
GENC"LABEL%,6,3)3% 
DO BEGIN? 
INSYMBOLIS 
IF CURSYaINTCONST THEN 
BEGINS 
GENIDC@L*sCURVAL 243% 


PRTC403) & *DESTINATION POINTER® 


IF CURSYmCONSTSY THEN 


IF CURVAL?9999 THEN ERROR( 33753 
FOR [tsFIRSTLAB STEP 1 UNTIL NUMLABS DO% 
IF LABTABE] JyLABVALSCURVAL THEN ERRORC 31932 


IF NUMLABS2MAXLABS THEN BEGIN ERROR(34)s NUMLABS#eO END3S 


NUMLABS#eNUMLABS44 38 
LABTABCNUMLABS)$#cURVALSS 
INSYMBOL3S 
END ELSE BEGIN ERROR(10)% SKIPCCOMMA) END? 
IF CURSYeCOMMA THEN GENC%s"o4e7) 3% 
END UNTIL CURSY#COMMA]% 


IF CURSY#SEMICOLON THEN BEGIN ERROR( 25)! SKIPCSEMICOLON) END33% 


GENC™3 "0407933 
IF SYMKINDCCURSYJ#INITIAL THEN INSYMBOL3S 
END OF LABEL DECLARATIONI 


INSYMBOL 32 

DO BEGINS 
IF CURSYsIDENTIFIER THENS 
BEGINS 


NEWNAME(CCURNAME 1 eCURNAME2sCURLEVEL)? INDEX##THISINDEX3 


INSYMBOLJS 

IF CURSYwEQLSY THENS 

BEGINS 
INSYMBOLS CONSTANTCCVALeCTYPE23% 
T3bmCTYPES T3,OCLASS#mCONSTIS 
IF CVAL,£4696)#0 OR CVAL>1023 THENZ 
BEGINS 


Ze*«x CONSTANT DECLARATION *¥* 
BEGYN Te eT TTT TTT ETT LP LITT TTT TTT eT 
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00003172 
00003173 
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00003175 
00003176 
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00003178 
00003179 
00003180 
00003181 
00003182 
00003383 
00003184 
00003185 
00003186 
00003187 
00003168 
00003189 
00003490 
00003191 
00003192 
00003193 
00003194 
00003195 
00003196 
00003197 
00003196 
00003199 
00003200 
00003201 
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0059 
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0072 
0073 
0076 
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0087 
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0087 
0087 
0088 
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0113 
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0203 
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IF NUMCONSTS2MAXCONSTS THENS 
BEGIN ERRORC 35) NUMCONSTS#s0 ENDSZ 
NUMCONSTS#taNUmMCONSTS4 45% 
CONSTTABENUMCONSTSJ 3 eCVALi% 
T3,INFOS®1O2ZeNUMCONSTSI2 
ENO ELSE T3,INFOtaCVALSS 
NAMETAB3CCURLEVELS INDEX] 88735% 
END ELSE BEGIN ERROR(36)%8 SKIPCSEMICOLON) END32 
END ELSE BEGIN ERRORC8)3 SKIPCSEM]COLON) ENDSS 
IF CURSY#SEMICOLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) ENDS 
IF SYMKINDECURSY)#INITIAL THEN INSYMBOL?S 
END UNTIL CURSY4IDENTIFIERSS 
END OF CONSTANT DECLARATIONSS 


IF CURSYsTYPESY THEN Z¥*e TYPE DECLARATION #4 
BEGIN TIT T ITT T LITT TTT TTL TT TTT 
INSYMBOLIS 
DO BEGIN? 
IF CURSYSIDENTIFIER THEN® 
BEGIN 
NEWNAMECCURNAME 1 eCURNAME2,CURLEVELJ3 INDEXt&THISINDEX3S 
INSYMBOL#S 
IF CURSYsEQLSY THEN 
BEGINS 
INSYMBOL é#% 
TYPEDECLCCTYPEsTX)3% 
T3ISCTYPES T3,IDCLASSimTYPESISZ 
NAMETAB3CCURLEVEL, INDEX] £#T35% . 
ENO ELSE BEGIN ERROR( 36) SKIPCSEMICOLON) ENDS3 
END ELSE BEGIN ERROR(®)3 SKIPCSEMICOLON) ENDI% 
IF CURSY#SEMICOLON THEN BEGIN ERROR(25)8 SKIPCSEMICOLON) END3% 
IF SYMKIND(CURSYJ#INITIAL THEN INSYMBOLS 2 
END UNTIL CURSY#IDENTYFIERS 
END OF TYPE DECLARATION:? 


IF CURSYsVARSY THEN Reese VARTABLE DECLARATION #«% 
BEGIN LEEKS KREKKEEERE KEKE KES 
VARINDEX##03% 
DO BEGINS 
FIRSTVARtRVARINDEX44 38 
DO BEGINS 
IF CURSY®VARSY OR CURSYsCOMMA THEN INSYMBOL#S% 
IF CURSY@IDENTIF IER THENS 
BEGINS 
IF VARINDEX2LU1STLENGTH THENZ 
BEGIN ERROR(37)3s VARINDEX##0 ENDS 
VARINDEX#mVARINDEX41 3% 
NEWNAME CCURNAME 7 »CURNAME2 eCURLEVEL) 3% 
VARLISTLCVARINDEXJ] s#THISINDEX!% 
INSYMBOL3S 
END ELSE BEGIN ERRORC9)} SKIPCCOLON?) END3S& 
END UNTIL CURSY#COMMASS 
IF CURSY#COLON THEN BEGIN ERROR(26)3 SKIPCCOLON) END3% 
IF CURSYRCOLON THENS 
BEGINS 
INSYMBOLI2 
TYPEDECLCCTYPE s TX)38% 


00003206 
00003207 
00003208 
00003209 
00003210 
00003211 
00003212 
00003213 
00003214 
00003215 
00003216 
00003217 
00003218 
00003219 
00003220 
00003221 
00003222 
00003223 
00003224 
00003225 
00003226 
00003227 
00003226 
00003229 
00003230 
00003231 
00003232 
00003233 
00003234 
00003235 
00003236 
00003237 
00003238 
00003239 
00003240 
00003244 
00003242 
00003243 
00003244 
00003245 
00003246 
00003247 
00003248 
00003249 
00003250 
00003251 
00003252 
00003253 
00003254 
00003255 
00003256 
00003257 
00003258 
00003259 
00003260 
00003261 
00003262 


AHHA MMM HHH HHH HHH HHH HAH A A HHA A A tt tt 


02086 
0209 
0211 
0212 
0213 
0215 
0218 
0220 
0222 
0224 
0226 
0228 
0230 
0230 
0230 
0230 
0231 
0231 
0232 
0232 
0233 
0256 
0256 
0257 
0258 
0258 
0259 
0262 
0264 
0266 
0268 
0270 
0272 
0274 
0274 
0274 
0274 
0275 
0276 
0276 
0277 
0278 
0280 
0281 
0282 
0282 
0284 
0286 
0306 
0309 
0310 
0312 
0313 
0316 
0317 
0317 
0316 


T3IMCTYPES T3,1DCLASSIaVARSS 
FOR I[teFIRSTVAR STEP 1 UNTIL VARINDEX DOS 
NAMETAB3CCURLEVELsVARLISTCI} J) 8eT 33% 
END ELSE BEGIN ERROR(26)% SKIPCSEMICOLON) END3% 
IF CURSY#SEMICOLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) END#S 
IF SYMKIND(CURSYJ#INITIA€L THEN INSYMBOL!3 
END UNTIL CURSYAIDENTIFIERSS 
DECLARE VARS(FALSEsVARLIBT+1+VARINDEXsCURLEVEL) 3% 
END OF VARIABLE DECLARATIONSS& 


IF NUMPNTRS>O THENS 
BEGINS 
Cy'mCURNAMEL C2tSCURNAME23S 
FOR 1%my STEP 1 UNTIL NUMBNTRS DOS 
BEGINS 
CURNAMELS&PNTRTABIC1J3 CURNAME2ZPePNTRTAB2C1 13% 
SEARCHTAB(CURLEVEL) 38 
THISID# mNAMETAB3CCURLEVELe THISINDEXI]3% 
1F FOUND AND THISID,IDCLASSeTYPES THENS 
TYPETABICPNTRTAB3C13) ,POINTTYPES@THISID,TYPE ELSE ERROR(62)3% 
ENDI% 
CURNAMES #eC1$ CURNAME2$8C23 NUMPNTRS#H03% 
END3% 


WHILE CURSYsFUNCSY OR CURSYaPROCSY DO 2*** PROC/FUNC DECLARATION *¥# 
BEGIN LEEKERREEESEE KE KEKEKER ES KKK EEK 
FUN eCURSY#FUNCSY3 INSY¥MBOL #2 
IF CURSY#]DENTIFIER THENS 
BEGIN2 
SEARCHTABC(CURLEVEL) 32% 
THISIDteNAMETAB3CCURLEVELeTHISINDEXJ3% 
IF FOUND AND THISID, IDCLASS2PROC THEN? 
BEGINS 
INDEX8eTHISINDEX3¢ 
IF THISID,FORWARDDEFe1 THENZ 
BEGINS 
NAMETAB3CLTHISLEVELe THISINDEX] ,FORWARDDEF 32033 
NUMFORWARDS 33NUMF ORWARDS913% 
IFCTHISIO,IDCLASS#PROC AND FUN)OR2 
CTHISIO,IDCLASSRFUNC AND NOT FUN) THEN ERROR(C43)3% 
INSYMBOL#2 
END ELSE BEGIN ERRORC2)5 SKIPCSEMJCOLON) END? 
END ELSE 
BEGINS 
NEWNAME CCURNAME 1» CURNAME 2, CURLEVEL)3 INDEXS#THISINDEX3S 
T34e03 TE, ENFOPBNUNPARAMS 4132 
T3,IDCLASS#eIF FUN THEN FUNC ELSE PROCI2 
NAMETAB3CCURLEVEL, INDEX) taT3i3 
INSYMBOLS PARAMETERLISTI32 
IF CURSY@COLON THENS 
BEGINS 
IF NOT FUN THEN ERROR(48)33%— 
INSYMBOLIZ 
IF CURSY®IJDENTIFIER THENS 
BEGIN? 
SEARCHS 
IF FOUND THENY 
BEGINS 


00003263 
00003264 
00003265 
00003266 
00003267 
00003268 
00003269 
00003270 
00003271 
00003272 
00003273 
00003274 
00003275 
00003276 
00003277 
00003278 
00003279 
00003280 
00003263 
00003282 
00003283 
00003284 
00003285 
00003286 
00003287 
00003288 
00003289 
00003290 
00003291 
00003292 
00003293 
00003294 
00003295 
00003296 
00003297 
00003298 
00003299 
00003300 
00003301 
00003302 
00003303 
00003304 
00003305 
00003306 
00003307 
00003308 
00003309 
00003340 
00003311 
00003312 
00003313 
00003314 
00003315 
00003316 
00003317 
00003318 
00003319 
00003320 
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0319 
0321 
0323 
0327 
0329 
0332 
0334 
0335 
0337 
0337 
0337 
0338 
0339 
0340 
0342 
0342 
0344 
0362 
0364 
0366 
0371 
0373 
0375 
0375 
0375 
0378 
0378 
0380 
0380 
0381 
0399 
0404 
0403 
0403 
0404 
0405 
0406 
0409 
0410 
0412 
0415 
0416 
0418 
0418 
0416 
0442 
0445 
0448 
0450 
0454 
0452 
0452 
0454 
0455 
0455 
0456 
0485 
0485 


IF THISID,IOCLASSRTYPES THEN? 
BEGIN 
TEBTYPETABICTHISID,TYPE)3% 
IF TeFORM<ALFA OR T,yFORM@POINTERS THENS 
BEGINS 
NAMETAB3CCURLEVELe INDEX], TYPES@THISID, TYPES 
END ELSE FRROR(38)3% 
END ELSE ERRORC7)32% 
END ELSE ERROR( 9232 
END ELSE ERROR(9O)S% 
INSYMBOL?S 
END ELSE IF FUN THENS 
BEGIN ERROR(26)% SkIPCSEMICOLON) ENDSS% 
ENDS% 
END ELSE BEGIN ERROR (9)3 SKyJPCSEMICOLON) ENDSS 
IF CURSY#SEMICOLON THEN BEGIN ERROR(25)% SKIPCSEMICOLON) END} 
IF FUN THEN GENC"FUNCTNY 702) ELSES 
GENC™PROCEDU%s8e1)3 GENTIDC™V"s LOOOxCURLEVEL +S INDEX e5) 3% 
TieNAMETAB3LCURLEVELsINDEXJ,INFOS TXtwT+PARAMTABLTI3% 
IF TX>T THENS 
BEGIN® 
GENC™C ep pT IEE 
FOR [tmwToy STEP 4 UnTyL TX DO% 
BEGIN GENIDC*V"s 1 000x¢(CURLEVEL +1 2+PARAMTABL1],PARAMNAME 05 )3% 
IF BOOLEANCPARAMTABCI],PARAMFILE) THENS 
BEGIN 
GENC*e "ote 73% 
GENTIOC"F%,1000x(CURLEVEL41)+PARAMTABCI],PARAMNAME 05)3% 
GENC™eo107) 3% 
GENIDC*1%,1000x(CURLEVEL 41 )+PARAMTABELI),PARAMNAME,5)3% 
ENDS 
IF 1 LSS TX THEN GENC% "e497 )3% 
ENDS% 
GENC™) 3%, 206)3% 
VALUEPARAMSt#®FALSE SZ 
FOR ftmTo1 STEP 1 UNTIL TX DO’ 
IF PARAMTABLIJ,PARAMKIND@CONST THENS 
BEGIN 
IF NOT VALUEPARAMS THEN 
BEGIN GENC™VALUE",653)3% 
VALUEPARAMSs 8JTRUES% 
END ELSE GENC™s%5g07)38 
GENTDCPV"s 1000x(CURLEVEL +1) +PARAMTABLI],PARAMNAME 25) 3% 
ENDS% 
IF VALUEPARAMS THEN GENC™3%—407)388 
DECLAREVARS(TRUEs PARAMTABs Tei eTXsCURLEVEL 41) 5% 
END ELSE GENC3%o1,793% 


INSYMBOL332 
IF CURNAME{a"7FORWAR™ AND CURNAME28"D" THENSZ 
BEGINS 
NAMETAB3(CURLEVEL» INDEX) sFORWARDDEF tel} 
NUMFORWARDS##NUMFORWARDS$13% 
GENC™ FORWARD" 250423 
INSYMBOL}S 
END ELSES 
BEGINS 


00003321 
00003322 
00003323 
00003324 
00003325 
00003326 
00003327 
00003328 
00003329 
00003330 
00003331 
00003332 
00003333 
00003334 
00003335 
00003336 
00003337 
00003338 
00003339 
00003340 
00003341 
00003342 
00003343 
00003344 
00003345 
00003346 
00003347 
00003348 
00003349 
00003350 
00003351 
00003352 
00003353 
00003354 
00003355 
00003356 
00003357 
00003356 
00003359 
00003360 
00003361 
00003362 
00003363 
00003364 
00003365 
00003366 
00003367 
00003368 
00003369 
00003370 
00003371 
00003372 
00003373 
00003374 
00003375 
00003376 
00003377 
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0485 
0487 
0487 
0489 
0491 
0492 
0496 
0497 
0498 
0499 
0501 
0504 
0502 
0504 
0504 
0506 
0509 
0516 
0543 


0546_ 


0547 
0546 
0557 
0561 
0575 
0576 
0577 
0586 
0600 
0609 
0625 
0625 
0635 
0635 
0644 
0645 
0649 
0651 
0651 
0652 
0661 
0662 
0674 
0688 
0688 
0698 
0701 
0711 
0711 
O711 
0713 
0714 
0717 
0716 
0727 
0728 
0728 


CURLEVELIsCURLEVEL41 2? 3 

IF CURLEVEL2LASTREC THEN ERROR(55)3% 
BLOCKTABLCURLEVEL) tsNUMBLOCKS ft =NUMBLOCKS413% 
THsCURFUNCS CURFUNCSeIF FUN THEN INDEX ELSE 913% 


BLOCK3 


Bee COMPILE PROCEDURE BODY **#* 


REPLACE POINTERCNAMETABICCURLEVEL,*)) BY 0% 


FOR MAXNAMES#¢1 WORDS32 


CURLEVELISCURLEVEL@,s CURFUNCIaT#% 
TOPLEVELIsCURLEVELS¢ 


ENDS 
IF CURSY#SEMICOLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) END#® 


GENCE 5497232 
IF SYMKINODCCURSYJ#INITIAL THEN INSYMBOL3% 
END OF PROCEDURE DECLARATIONS2 


IF NUMFORWARDS?0 THEN ERROR( 44) 3% 
GENC™INTEGER™ 2801) 5% 

FOR yaw) STEP 4 UNT]L MAXTEMPS DOX 
BEGIN GENIDC"T*5122) 3% 


ENDS% 


IF [<MAXTEMPS THEN GENC™e%e1e7) ELSE GENC™E e150 7I3% 


IF CURSY#BEGINSY THENS 

BEGIN ERROR(39)3% 
WHILE SYMKINDCCURSYJ# INITIAL DOZ 
BEGIN INSYMBOL? SKIPCSEMICOLON) END3% 


IF CCURSYsTYPESYIOR(CONSTSYSCURSY AND CURSYSPROCSY)THENS 


GO TO START33 


ENDSS% 

IF CURLEVEL#i THENS 

BEGIN 
GENCTINITC% 2503288 
IF INPUTDECL THEN GENC"™ TRUE" 2424) ELSE GENC™FALSE%2523)3% 
GENC™) 8% 22 26)5% 

ENDI% 


FOR JIeFIRSTFILE STEP ¢ UnTyL NUMFILES DOS 
IF FILETABCI) LSS O THEN’ 


BEGIN? 


GENCMCHFILC%2692)3% 
GENIDC*F®, JOOOxCURLEVEL*FILETABL] J=125238 
GENC™I3%—p 206752 


END 
ELSES 
BEGINS 


GENTOC "1%. 1000xCURLEVELSFILETABLI ]05)35% 
GENC™e"ol e735 GENC™BUFSIZE™s7919% GENC™32B05%9503)5% 


END3% 


NUMFILESSeF I RSTFILEwLIS 


COMPSTATS 


Zeus COMPILE STATEMENT PART #% 


FOR fawLASTREC STEP 1 UNTIL TOPREC#1 DOX 

REPLACE POINTERCNAMETABICY*#)) BY 0 FOR MAXNAMES#1 WORDSSS 
FOR ytwFIRSTLAB STEP 1 UNTIb& NUMLABS D0 

IF LABTABCI),LABDEF SO THEN FRROR(93)5% 

LASTRECtsTOPRECS2 

NUMLABStaLABTABTOPI 


00003378 
00003379 
00003380 
0000338} 
00003382 
00003383 
00003384 
00003385 
00003386 
00003387 
00003388 
00003389 
00003390 
00003394 
00003392 
00003393 
00003394 
00003395 
00003396 
00003397 
00003398 
00003399 
00003400 
00003401 
00003402 
00003403 
00003404 
00003405 
00003406 
00003407 
00003408 
00003409 
00003410 
00003411 
00003412 
00003413 
00003414 
00003415 
00003416 
00003417 
00003418 
00003419 
00003420 
00003421 
00003422 
00003423 
00003424 
00003425 
00003426 
00003427 
00003428 
00003429 
00003430 
00003431 
00003432 
00003433 
00003434 
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0731 
0732 
0734 
0736 
0739 
0740 
0742 
0746 
0748 
0749 
0749 
0751 
0760 
0762 
0763 
0763 
0763 
0766 
0775 
0777 
0789 
0808 
0811 
0611 
0813 
08614 
0816 
0819 
0619 
0819 
0820 
0621 
0830 
0852 
0861 
0861 
0864 
0865 
0865 
0874 
0688 
0697 
0897 
0897 
0900 
0913 
0940 
0942 
0943 
0943 
0944 
0944 
0948 
0957 
0958 
0963 
0963 


FIRSTLABIeFORMERFIRSTLABSS 

NUMCONSTS#®CONSTTABTOP32 

NUMTYPES!taTYPETABTOP32 

NUMPARAMS#®PARAMTABTOP32 

IF CURLEVELA1 THEN GENC"ENDs4e5)5% 
END OF BLOCKS 


40 18 


00003435 
00003436 
00003437 
00003438 
00003439 
00003440 
988 LONG 


»- 4A 


0964 
0965 
0966 
0966 
0967 
0977 
NEXT SEG 


2 


PRTC 404) 


PRT( 405) 
PRT( 406) 


PRT( 407) 
PRT¢ 440) 
PRT¢ 441) 


PRTC442) 


PRT(¢433) 


EOie tae en SAP Ta nen nena SEAR MON DSAE ORAS EASE AD ES SERDSESSSSSERREENSS 
% % 
% & 
% PART 9% THE MAIN PROGRAM, x 
% wen aFegenae*enenan % 
% a 
% % 
% : % 
RERRALSARARPASABARAAASABLETSARAALTALARLASALAATAALAVALSLSAEVASTALRLALATLIFRS 
% 
INTEGER PROGNAMELENGTH33 

PROGNAMELENGTH 
ALPHA PROGNAME #ALGOLNAMES & 

PROGNAME 

ALGOLNAME 
% 


ALGOLNAME Sa "PASCOOORRENTIERCTIMEC4IMOD 1000171516932 
ALGOLNAME teALGOLNAMERENTIERCTIMEC4IDIV 7)E114586]3% 
ALGOLNAME SWALGOLNAMESENTIERCTMEC4SIMOD 9)(58586)3% 
USERIRTIMEC PL) IZ 
FILL PASCALGOL WITH ALGOLNAME,USERSS 
BEGINS 

File PASCRUN DISK SERTAL "PASCRUNO/S*DISK*® (26100150)8% 


*SEGMENT DESCRIPTOR* 


PASCRUN 


BUF 


EOF 


ARRAY BUF(O9IIS 
LABEL EOFSS 


WHILE TRUE DO% 
BEGIN 
READCPASCRUN+9eBUF[*)) fEOF IES 


WRITE CPASCALGOL,10*BUFE 4) 3% 
END3% 
EOF SE 
END OF TRANSFER OF RUN TIME SySTEMS% 


*SEGMENT DESCRIPTOR* 


CARDLENGTH##723% 
INITIALIZES NEWCARD3I2 
LISTOPTIONISSCHECKOPTIONS ®TRUE 3% 
Cte” "3s INSYMBOLIS 
IF CURSYePROGRAMSY THENS 
BEGINS 
INSYMBOL33 
IF CURSY#IDENTIFIER THENS 
BEGINS 
PROGNAMETSCURNAME1,£35836}3 
INSYMBOLIS 
IF CURSYaLPAR THEN? 
BEGIN& 
DO BEGIN? 
INSYMBOLSS 


PROGNAMELENGTH#=MIN( 60 CURLENGTH 3% 


START OF SEGMENT 


44 15 


00003442 T 0375 
00003443 T 0375 
00003444 T 0375 
00003445 T 0375 
00003446 T 0375 
00003447 T 0375 
00003448 T 0375 
00003449 T 0375 
00003450 T 0375 
00003451 T 0375 
00003452 T 0375 
00003453 T 0375 
00003454 T 0375 
00003455 T 0375 
00003456 T 0375 
00003457 T 0375 
00003458 T 0378 
00003459 T 0382 
00003460 T 0386 
00003461 T 0387 
00003462 T 0391 
00003463 T 0391 
PT TTT CLES 
00003464 T 0004 
00003465 T 0006 
00003466 T 0006 
00003467 T 0006 
00003468 T 0007 
00003469 T 0007 
00003470 T 00413 
00003471 T 0017 
00003472 T 0017 
00003473 T 00486 
21 LONGse NEXT SEG 
00003474 T 0394 
00003475 T 0394 
00003476 T 0460 
00003477 T 04662 
00003478 T 0463 
00003479 T 0464 
00003480 T 0464 
00003481 T 0465 
00003482 T 0465 
00003483 T 0466 
00003484 T 0470 
00003485 T 0473 
00003486 T 0473 
00003487 T 0472 
00003488 T 0473 


@ 
rd] 
IF CURSY@IDENTIFIER THENS 00003489 T 0473 
BEGINS 00003490 T 0474 
IF CURNAMELe"SOINPUT™ THEN INPUTDECLESSTRUE ELSES 000034914 T 0474 @ 
IF CURNAME1="60UTPUT™ THEN OUTPUTDECLSsTRUE ELSES 00003492 T 0476 
BEGINS 00003493 T 0481 
IF CURLENGTH?6 THEN ERROR(77)3% 00003494 T 0483 & 
NUMEXTFILES# ©NUMEXTFILESS43% 00003495 T 0485 
IF NUMEXTFILESSMAXEXTFILES THENZ 00003496 T 0486 
EXTFILETABLNUMEXTFILESJ t$@CURNAMEL ELSES 00003497 T 0487 @ 
IF NUMEXTFILESSMAXEXTFILES#1 THEN ERROR(73)3% 00003498 T 0488 
ENDI% 00003499 T 0494 
END ELSE ERROR(9)3% 00003500 T 0491 ® 
INSYMBOL3$ 00003501 T 0493 
END UNTIL CURSY#COMMA;S 00003502 T 0493 
IF CURSY#RPAR THEN BEGIN FRROR(46)3 SKIPCSEMICOLON) ENDS 00003503 T 0494 ® 
- IF CURSY#RPAR THEN JNSYMBOL3% 00003504 T 0497 
IF. CURSYSSEMI COLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) ENDS& 00003505 T 0499 
END ELSE BEGIN ERROR(58)$ SKIPCSEMICOLON) ENDS 00003506 T 0502 ® 
END ELSE BEGIN ERROR(9)% SKyP¢SEMICOLON) ENDS% 00003507 T 0504 
END ELSE BEGIN ERRORC75)3 SKIPCSEMICOLON) END3% 00003508 T 0506 
INSYMBOL#S 00003509 T 0508 ®@ 
CURLEVEL I my3% 00003510 T 0508 
LASTREC 8 sMAXTABLES 413% 00003511 T 0509 
BERESRLALSAAARTLAARFLATLVLALALVAAILLVSARTLTFAKRLAAFLUSLLASBLALLLAFXLAZ 000035412 T 0510 @ 
% % 00003513 T 0510 
BLOCK} % COMPILE USER PROGRAM, x 00003514 T 0510 
% % 00003515 T 0511 @ 
ERLLAALALTSAAARALAALAARTALARASASATETASLASEALASAALATSLAAAALALTRSTATULRREAULFY 00003516 T 0511 
IF CURSY#DOT THENS 00003517 T OS5ii 
BEGINS 00003518 T 0511 e 
ERROR(76) 2% 00003519 T 0512 
DO BLOCK UNTIL CURSYSDOTI& 00003520 T 0513 
ENDS% 00003521 T 0514 @ 
IF FALSE THENS 00003522 T 0514 
BEGINS 00003523 T 0515 
ENDOFINPUTE# ERROR(87)3 CHARCNTIB™19% 00003524 T 0515 @ 
WRITECLINES» TERMMESS) 3&2 00003525 T 0517 
ENDS% 00003526 T 0520 
IF LISTOPTION AND CHARCNT20 THEN PRINTLINESS 00003527 T 0520 ®& 
IF ERRINX>O THEN PRINTERRORSI 4 00003528 T 0565 
WRITECLINESCDBLJ 9% 00003529 T 0567 
WRITECLYNES(DBLJ)3% 00003530 T 0571 & 
IF NUMERRS#0 THENS 00003531 T 0575 
BEGINS 00003532 T 0576 
ARRAY ZIPARRAY(O#19)] 2 Z(040)3% 00003533 T 0576 e 
PRT( 494) = *SEGMENT DESCRIPTOR* 
: START OF SEGMENT #4 Ke ee 8% 
PRT(410) © Z1IPARRAY @ 
PRTC411) = 2 
POINTER ZIPPNTS% 00003534 T 0005 
PRT¢445) = Z]PPNT ® 
z 00003535 T 0005 
DEFINE ZIPTEXTC(TEXTo Lad 00003536 T 0005 
BEGINS 00003537 T 0005 6 
ZCOJMRTEXTIS 00003538 T 0005 
REPLACE ZIPPNTSZIPPNT BY POINTERCZE#))4+C8"L) FOR LIB 00003539 T 0005 
END#3% 00003540 T 0005 & 
a] 


% 


PR1¢416) s Z1PNUM 


PRTC417) 


PRT(¢( 420) 
PRT(410) 


PRT¢ 4901) 


PROCEDURE Z}PNUMCN)3 ® TRANSFERS A NUMBER TO THE ZIP BUFFER, 
VALUE N3 INTEGER N3B 

IF NS9 THEN ZIPTEXTOCNe1) FLEES 

BEGIN ZIPNUMCN DIV 40)3 ZIPTEXTCENTIERCN MOD 10)01) ENDIZ 


WRITEALGOLIS 
WRITE CPASCALGOL®LASTLINE) 33 
LOCKCPASCALGOLsSAVE)33% 
ZIPPNTtePOINTER(ZIPARRAY( J) 3% 
REPLACE ZIPPNT BY * " FOR 26 WORDS33% 
WRITECLINESsNOERRORS) 3% 
ZEPTEXTE"CC "5393 
ZIPTEXTC™ "2193 


ZIPTEXTC™COMPILE%s 723% 
ZIPTEXTCPROGNAME pPROGNAMELENGTH) 3% 
ZIPTEXTC%/%54)3 ZIPTEXTCUSERS 7) 3% 

ZIPTEXTC™ XALGOL%e7)3 ZIPTEXTC™ "945% 

IF SAVEFACTOR>0 THEN ZIPTEXTC™LIBRARY"97)3% 

IF SAVEFACTOR<0 THEN ZIPTEXTC™SYNTAX% 2 6)3% 

ZIPTEXTC™S%9 45% 


ZIPTEXTC"™XALGOL")6)3 ZIPTEXTC™ FILE%,5)3% 
ZIPTEXTC™ CARDE%s26)3 ZIPTEXTCALGOLNAME®7)3% 
ZEPTEXTC™/%o4)} ZIPTEXTCUSERS7)3% 


ZIPTEXTC™ SERJAL"s7)3 

IF SAVEFACTOR>0 THENS 

BEGINS 
ZIPTEXTC*SAVEm"™,5)3 ZIPNUMCSAVEFACTORD ES 
ZIPTEXTC™S% 5 EK 

ENDS 

ZIPTEXTC"END "94933 

ZIP WITH ZIPARRAY(*#]3% 


ZIPTEXTC™S 515% 


END OF COMPILER ZIP ELSES 


*SEGMENT DESCRIPTOR* 


BEGIN 


INTEGER 13% 


® *SEGMENT DESCRIPTOR* 


SWITCH FORMAT ERRORMESS] jeg 


ERRORMESS{ 


Cw 0 *** COMPILER ERROR *** CONTACT THE COMPUTER CENTRE, ")o% 
C* 1 IDENTIFIER NOT DEFINED, ") 52 

(™ 2 IDENTIFIER ALREADY DEFINED, ") 0% 

(* 3 WRONG NUMBER OF PARAMETERS,") 0% 

Cw 4 SYNTAX ERROR," )og 

(w 5 VARIABLE NOT ACCESSIBLE CHARDWARE RESTRICTION), ") 9% 

(m 6 STRINGS MAY NOT BE CONTINUED FROM ONE CARD TO ANOTHER," ) 9% 
cm 7 A TYPE EXPECTED, "),% 

cm 8 VARIABLE EXPECTED ,") 9% 

Cw 9 JDENTIFIER EXPECTED,") 9% 

€" 40 INTEGER CONSTANT EXPECTED," )e% 


00003541 T 
00003542 T 


00003543 
00003544 
00003545 


4+~44 


00003546 
00003547 
00003546 
00003549 
00003550 
00003551 
00003552 
00003553 
00003554 
00003555 
00003556 
00003557 
00003558 
00003559 
00003560 
00003561 
00003562 
00003563 
00003564 
00003565 
00003566 
00003567 
00003568 
00003569 
00003570 
00003571 


AHA AANA a a 


42 1S 222 LONGs 
00003572 T 
00003573 T 


0005 
0005 


0005 
0005 
0014 


0027 
0027 
0027 
0030 
0032 
0033 
0037 
0040 
0055 
0069 
0084 
0098 
0107 
0115 
0123 
0137 
0161 
0175 
0190 
0191 
0194 
0199 
0206 
0206 
0214 
0215 


NEXT SEG 
0577 
0577 


START OF SEGMENT #4xun8 eae 


00003574 T 0000 
START OF SEGMENT suueee een 
00003575 T 0000 
00003576 T 0000 
00003577 T 0000 
00003578 T 0000 
00003579 T 0000 
00003580 T 0000 
00003581 T 0000 
00003562 T 0000 
00003583 T 0000 
00003584 T 0000 
00003585 T 0000 


2 


43 


44 


€ @ 


C# 11 CONSTANT OF OTHER TYPE THAN EXPECTED,") 03% 00003586 T 0000 
«(" 42 VARIABLE OF ILLEGAL TYPE,%) 0% 00003587 T 0000 
(" £3 UNRECOGNIZABLE STATEMENT," ) 0% 000035868 T 0000 
(* 14 CONSTANT TOO BIG OR TOO SMALL") 9% 00003589 T 0000 
C" 15 UNDEFINED LABEL," 5% 00003590 T 0000 
€" 16 FOR® AND CASE@STATEMENTS NESTED TOO DEEP,") 0% 00003591 T 0000 
c# 17 EXPRESSION IS OF WRONG TYPE,"),% 00003592 T 0000 
cw 48 MHMOFHOM EXPECTED, 9) oS 00003593 T 0000 
CH 49) MMMOOKHH EXPECTED.) 08 00003594 T 0000 
C# 20 FFMELSEM@ WITHOUT CORRESPONDING SP" THENWOM W),g 00003595 T 0000 
C™ 21 ILLEGAL TERMINATION OF STATEMENT," ) 0% 00003596 T 0000 
C®# 22 CRRUNTIL@"™ EXPECTED se") 0% 00003597 T 0000 
CH 23 MPM TOMHMSHHNDOWNTONM™ EXPECTED ,") o% 00003598 T 0000 
CW 24 BPMENDEWH EXPECTED, ") 5% 00003599 T 0000 
(" 25 wMnswnn EXPECTED, ") 2% 00003600 T 0000 
Ch 26 MMM EMHH EXPECTED, "0% 00003601 T 0000 
Ch 27) PRPTHENT HY EXPECTED, "20% 00003602 T 0000 
CH 26 MHMERHEM EXPECTED, *) 0% 00003603 T 0000 
«" 29 ONLY NUMBERS MAY BE SIGNED,» ") 0% 00003604 T Q000 
cw 30 TOO MANY CASES,")08% 00003605 T 0000 
Cc" 31 LABEL USED MORE THAN ONCE,")o% 00003606 T 0000 
C™ 32 CONSTANT EXPECTED," 0% 00003607 T 0000 
(" 33 LABEL NOT IN RANGE 04,9999,"%) 0% 00003608 T 0000 
C* 34 TOO MANY LABELS DECLARED, "20% 00003609 T 0000 
Cc" 35 TOO MANY CONSTANTS DECLARED,") o% 00003610 T 0000 
C* 36 MhMeHOH EXPECTED, ") 0% 00003611 T 0000 
C* 37 THE LIST 1S TOO LONG," 4% 00003612 T 0000 
C*™ 38 INVALID TYPE FOR A FUNCTION," ) 5% 00003613 T 0000 
CH 39° PPMBEGING OM EXPECTED, "ek 00003614 T 0000 
c*™ 40 TOO MANY IDENTIFTERS DECLARED, *) 438 00003615 T 0000 
cm 41° ALFA CONSTANS MAY WOT BE LONGER THAN 7 CHARACTERS," 5% 00003616 T 0000 
€* 42 EXPRESSION IS NOT OF TYPE BOOLEAN, ")o% 00003617 T 0000 
C™ 43 NOT PROPER FORWARD DECLARATION, ") 0% 00003618 T 0000 
(* 44 UNSATISFIED FORWARD DECLARATION, ) 0% 00003619 T 0000 
(* 45 TOO MANY DIFFERENT TYPES DECLARED,") 0% 00003620 T 0000 
C*# 46 MMM )MHM EXPECTED, "728 00003621 T 0000 
(" 47 MMMM EXPECTED, "20% 00003622 T 0000 
C* 48 A SIMPLE TYPE EXPECTED,") 0% 00003623 T 0000 
Cm 49° FPMARRAY OF ARRAY™"" AND """ARRAY OF RECORD™"" ILLEGAL" s&% 00003624 T 0000 
" AS FILE TYPE,") 0% 00003625 T 0000 

c# 50 wPrMR ILE OF FILE" TS TLLEGAL,") 6% 00003626 T 0000 
c# 51 SET BOUNDRY [S T00 BIG OR TOO SMALL," 0% 00003627 T 0000 
(» 52 TOO MANY UNDECLARED POINTERS, ") 9% 000036268 T 0000 
C*# 53. Wm mmm EXPECTED, "2 0% 00003629 T 0000 
c* 54 FIRST VALVE IS GREATER THAN SECOND VALUE, ") 0% 00003630 T 0000 
C*# 55 TOO MANY RECORDS DECLARED AT ONE TIME,") 9% 00003631 T 0000 
C" 56 THE RECORD CONTAINS MORE THAN 1023 WORDS," ) 9% 00003632 T 0000 
(" 57 FILES NOT ALLOWED IN RECORDS,") 0% 00003633 T 0000 
cm 58 wMMcHnM EXPECTED") 08 00003634 T 0000 
Cc" 59 MMH lHeM EXPECTED, "23% 00003635 T 0000 

44 18 590 LONGs NEXT SEG 43 
% 00003636 T 0000 


SWITCH FORMAT ERRORMESS2 jag 00003637 T 0000 
START OF SEGMENT #4#eee8eeee © 45 
PRT( 402) «= FRRORMESS?2 

C7 60 "PMARRAY OF FILE®"" NOT ALLOWED, ") 0% 


C* 61 RANGE OF INDEX IS GREATER THAN 1023,") 0% 


00003638 T 0000 
00003639 T 0000 


PRT( 493) 


PRT¢424) 


PRT (425) 
PRT( 4969 


% 
x 


(" 62 
(* 63 
(" 64 
Cc" 65 
Cc" 66 
(" 67 
c# 68 
C" 69 
cw 70 
c" 71 
C" 72 
(" 73 
Ce 74 
qc" 75 
(" 76 
(* 77 
c* 78 
«" 79 
ce 60 
cw 84 
Cw 82 
Ce 83 
c" 84 
C# 865 
«" 86 
(" 87 
c* 88 
qc" 89 
cw 90 
cw 94 
(" 92 
Cw 93 
cw 94 
cw 95 
C* 96 
(" 97 
Cc" 98 
cw 99 


UNSATISFIED POINTER DECLARATION," ) 9% 
EXPRESSION IS TOO BONG,") 5% 

ILLEGAL OPERATOR FOR THIS TYPE OF EXPRESSION,") 5% 
INTEGER EXPRESSION EXPECTED,") 0% 

A SET EXPECTED,") 98% 

PARAMETER OF {ILLEGAL TYPE,") 5% 

PROCEDURES NOT ALLOWED IN THIS CONTEXT, ") 0% 

ILLEGAL USE OF THIS TYPE OF IDENTIFIER," 9% 

TOO MANY PARAMETERS DECLARED IN THE PROGRAM,") 0% 
MRHARRAY OF CHAR@ Re EXPECTED, ") o% 

WRONG TYPE OF SET EXPRESSION, ") 6% 

TOO MANY EXTERNAL FILES, ") 0% 

ILLEGAL IDENTIFIER FOR EXTERNAL FILE,") 0% 

P™HPROGRAM™™™ EXPECTED, ") 0% 

nan wm EXPECTED AT END OF PROGRAM») 0% 

EXTERNAL FILE IDENTIFIER MAY NOT EXCEED 6 CHARACTERS, ") 03 
ILLEGAL FILE PARAMETER,")s% 

ILLEGAL USE OF FYyLE HANDLING PROCEDURE," )2% 

TEXT#FILE EXPECTED, ") 0% 

POINTER VARIABLE EXPECTED, "25% 

ONLY VALUES OF TYPE REAL» INTEGER OR CHAR MAY BE READ, ") 0% 
VARIABLES IN RECORDS ILLEGAL IN THIS CONTEXT, ") 0% 
DISPLAY OVERFLOW,") 5% 

READ AND WRITE MAY ONLY BE USED ON TEXT#FILES se") 03% 
REFERENCED OBJECT IS TOO BIG,")o% 

END@OF*INPUT DISCOVERED," ) 0% 

CHARACTER ARRAY EXPECTED, ") 0% 

wem,mem EXPECTED, "30% 

PROCEDURES MAY NOT HAVE ANY TYPE,%) 0% 

PARAMETER OF WRONG KIND,") 0% 

ONLY COMPLETE ARRAYS AND RECORDS MAY BE TRANSMITTED, ") 5% 
DECLARED LABEL NOT USED,") 0% 

PARAMETERS OF THIS TYPE SHOULD NOT BE VALUE PARAMETERS, ") 9% 
ASSIGNMENT OF STRUCTURED VARIABLES NOT IMPLEMENTED," )9% 
INPUT/QUTPUT NOT DECLARED, ")»% 


TOO MANY FILES IN USE,") 0% 


RECORD IDENTIFIER EXPECTED» ™) 2% 
UNRECOGNIZABLE ITEM, ")5% 


WRITECLINESs ERRORS e NUMERRS ) 3% 


LIST. LABEL, OR SEGMENT DESCRIPTOR* 


FOR ytwO STEP 3 UNTIL 59 pO JF ERRCI) THENS 
WRITE CLINESsERRORMESSI( 1 ))5% 

FOR £46960 STEP 1 UNTIL 119 DO IF ERREI] THEN 
WRITECLINESs ERRORMESS2¢ 1760393 

END OF ERROR MESSAGES#2 


*SEGMENT DESCRYIPTOR* 


IF XREFOPTION THEN? 
BEGINS 
REPLACE POINTERCXREFLINEL#)) BY * * FOR 17 WORDSIS 


HEADING3S 


SORTCPRINTXREF »XREFF ILE» Os XREFMAX » XREF COMPARE » 30100096000)38 
00003691000000000H0 34+660017ED17T10N000000304 


45 1S 


43 1S 


00003640 
00003641 
00003642 
00003643 
00003644 
00003645 
00003646 
00003647 
00003648 
00003649 
00003650 
00003651 
00003652 
00003653 
00003654 
00003655 
00003656 
00003657 
00003658 
00003659 
00003660 
00003661 
00003662 
00003663 
00003664 
00003665 
00003666 
00003667 
00003668 
00003669 
00003670 
00003671 
00003672 
00003673 
00003674 
00003675 
00003676 
00003677 
00003678 
430 LONG 
00003679 
00003680 
00003684 


00003682 
00003683 
00003684 
00003685 
00003686 


AAMAS HH HH HAHAHAHA HA HH 


28 LONGs 
00003687 
00003686 
00003689 
00003690 
00003693 


+4 4-H 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
NEXT SEG 
0000 
0000 
0000 


0007 
0008 
0015 
0016 
0023 


NEXT SEG 
0578 
0578 
0576 
0583 
0604 


43 


2 


®eeee#eeeee#sreeeeeeseseee8e8e0e808 0@ 8 © 


PRT( 427) 


= SORT 


END3% 
END OF COMPILER,% 


PRT(300) = EXP INTRINSICe SEGMENT NUMBER =~ 47, 
PRTC277) » LN INTRINSIC, SEGMENT NUMBER # 48, 

PRT(242) = OUTPUTCW) INTRINS]Cs SEGMENT NUMBER & 
PRT¢(5) = BLOCK CONTROL YNTRINSIC® SEGMENT NUMBER & 50,4 


PRTC4279 © SORT INTRINSICe SEGMENT NUMBER « 
PRT(301) # X TO THE I INTRINSIC» SEGMENT NUMBER & 

INTRINSIC, SEGMENT NUMBER « 
INTRINS|C» SEGMENT NUMBER & 54, 


PRT(273) & GO T@ SOLVER 
PRT(14) = ALGOL WRITE 
PRT¢15) = ALGOL READ 
PRT¢16) # ALGOL SELECT 
PRT( 426) = MERGE INTRINSIC» SEGMENT NUMBER «& 


5h, 


49, 


52, 


INTRINSTCe SEGMENT NUMBER # 55, 


INTRINSIC, SEGMENT NUMBER = 56, 
57, 


PRT¢34) = FILE ATTRBUTS INTRINS[Cs SEGMENT NUMBER & 56, 
PRT(240) & DYNAMIC DIALS INTRINSIC, SEGMENT NUMBER = 59, 


PRT(2719 # STRNG@ SCAN 


INTRINSIC, 


SEGMENT NUMBER a 


PRT(206) ® STRNG REPLACE INTRINSICs SEGMENT NUMBER & 61, 


FPB 


000140200 
00000000 
43250005 
63010007 
00110200 
02000000 
10636411 
00416432 
00767405 
01632360 


~ Se6pict 


00000000 
00000000 
00031500 
00032304 
00033600 


00035300 


00037504 
00041400 
10027700 
10001400 
10027400 
00000000 


00000000 
00000047 
14472162 
14000000 
00000000 
00000000 
00000000 
45121000 
55316473 
41571663 


00000000 
07600087 
76200175 
405002644 
530004494 
21600503 
41190637 
33601000 
00100047 
00100022 
00100044 
00000047 


00006246 
21622321 
23516445 
00000000 
00002462 
24625163 
10546413 
00222141 
01140530 
01741054 


00002200 
00000000 
00031601 
00032501 
000 34000 
00035700 
00037400 
00042000 
10024200 
10001500 
10020600 
21622321 


64512325 
432714347 
24316242 
24625163 
51630460 
06606005 
20000000 
16345200 
71060221 
52430240 


002014126 
19100012 
42000442 
71700321 
35200430 
32300540 
62100654 
03403077 
004100001 
00100023 
00100042 
43271447 


60042324 
21622324 
60606007 
026060058 
60052462 
24625168 
104575 36 
00326574 
01212657 
02051267 


00002404 
00020004 
00032000 
00032700 
00034300 
00036404 
00037704 
20042404 
10000500 
10001600 
20003300 
21622321 


54240002 
43274643 
47216223 
24625163 
51630400 
06001402 
04900000 
42036440 
07274266 
64556310 


166041300 
36200051 
27100216 
11200316 
54000440 
27700550 
72200667 
11601034 
00100002 
00100024 
10501127 
43274643 


33, 


60, 


03000000 
000414400 
51644500 
02001002 
12020000 
00000000 
10373465 
00434327 
014315432 
02163545 


200147600 
20027500 
00032400 
00033100 
00034500 
00036300 
00040400 
20042200 
10042700 
10042600 
00000000 
00041400 


00000000 
00000000 
06140000 
00000000 
00000000 
00000024 
45000000 
72446150 
71153343 
61711772 


05600004 
01600050 
32500225 
36300363 
13000454 
04400600 
23500730 
65604060 
00100004 
00100027 
00000000 
00000000 


43344525 
00006751 
00000000 
00000024 
00246254 
62516307 
10111240 
00543415 
01420744 
02310047 


00020500 
00031300 
00030200 
20033200 
00034700 
00036500 
00040204 
20022400 
10030100 
10003400 
43314525 
00006754 


00003692 T 0624 
00003693 T 0624 
2 1S 630 LONGs NEXT SEG 
START OF SEGMENT *#48e 88% He 


46 1S 4 LONGs NEXT SEG 
11s 2 LONGe NEXT SEG 
62 18 69 LONGse NEXT SEG 
62606005 43314525 620003;4 
25262631 43106751 25262631 
00246251 63016060 05246251 
62516303 60600524 62516303 
63056060 05246251 630500313 
60600524 62516307 00000000 
27620000 00013510 35564000 
71157602 00654321 27413543 
47406234 01525132 01307703 
74627437 02412061 70475347 
15100003 0002230; 43500015 
73200103 00031400 63600124 
66700235 00030300 17000254 
00700362 00033400 72100374 
22200457 00035100 64700464 
13500602 00034200 36400606 
734007 36 00040700 02500777 
00401125 10030000 0014900020 
00100006 10027300 00100021 
00100150 10024000 00100040 
62606005 43314525 62000314 
29262631 43106753 25262631 


43250005 
63010007 
00110200 


PRT 


00000000 
00000000 
65406600 
67400100 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
66400300 
00000000 
65021400 
00000000 
00000000 
00000000 
65406400 
00000000 
00000000 
00000000 
66042400 
65405700 
00000000 
65401300 
00000000 
66402300 
65403000 
00000000 
00000000 
00000000 
00000000 
65404500 
65405000 
00000000 
65405200 
66041700 
654096100 
00000000 


14472162 
14000000 
00000060 


00000000 
00000000 
06600000 
00100000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
003000860 
00000000 
00200145 
00000080 
00000000 
00000060 
064100000 
00000000 
00000000 
00000000 
00201004 
05700000 
00000000 
01300630 
00000000 
02301672 
03000525 
00000000 
00000000 
00000000 
00000000 
04500642 
05001783 
00000000 
05200006 
00201102 
06100000 
00000000 


23546445 
00000000 
00002462 


00000000 
00000000 
65406700 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
65400400 
00000000 
00000000 
00000000 
00000000 
65020200 
00000000 
00000000 
00000000 
65406500 
65406400 
00000000 
65031700 
65402200 
65492500 
00000000 
65403300 
65035500 
65404000 
00000000 
65037600 
00000000 
00000000 
66041300 
00000000 
65020200 
00000000 


24316242 
24625363 
51630460 


00000000 
00000000 
06700000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00400446 
00000000 
00000000 
00000000 
00000000 
00200333 
00000000 
00000000 
00000000 
06500000 
06400000 
00000000 
01400755 
02201370 
02500361 
00000000 
03300426 
03600213 
04001274 
00000000 
04401376 
00000000 
00000000 
00201101 
00000000 
00200333 
00000000 


60606007 
02606008 
6005246» 


00000000 
00000000 
65407000 
65027200 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
65027600 
65407500 
65021200 
00000000 
00000000 
00000000 
65024300 
00000000 
00000000 
00000000 
00000000 
65402000 
00000000 
66401500 
00000000 
66402600 
65403400 
00000000 
00000000 
00000000 
00000000 
65404400 
00000000 
66405408 
66042300 
654071400 
65024309 
00000000 


47216223 
24625163 
31630400 


00000000 
00000000 
07000000 
00201163 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
010043350 
07500000 
00200202 
00000000 
00000000 
00000000 
00200363 
00000000 
00000000 
00000000 
00000000 
02000661 
00000000 
01501403 
00000000 
02600000 
03400350 
00000000 
00000000 
00000000 
00000000 
04400000 
00000000 
05100022 
05300032 
07100000 
00200363 
00000000 


51644500 
02001002 
12020000 


90000000 
00000000 
00000000 
00000000 
66407600 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
65400200 
00000000 
00000000 
65400500 
00000000 
00000000 
65024400 
00000000 
00000000 
00000000 
66401100 
65402100 
00000000 
66401400 
65033000 
00000000 
00000000 
65403400 
66035600 
65404100 
00000000 
65404600 
00000000 
66024500 
66405400 
65406300 


65024400 


00000000 


06140000 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
07600000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00200105 
00000000 
00000000 
00501432 
00000000 
00000000 
00200365 
00000000 
00000000 
00000000 
01100000 
02100000 
00000000 
01400144 
02301705 
00000000 
00000000 
03400000 
03600207 
04100042 
00000000 
04601704 
00000000 
00200612 
05400000 
06300000 
00200365 
00000000 


00000000 
00000024 
00246254 


00000000 
00000000 
00000000 
00000000 
65407200 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
65024100 
00000000 
00000000 
66405600 
00000000 
65407300 
00000000 
00000000 
00000000 
00000000 
66401000 
00000000 
00000000 
65401600 
00000000 
65402700 
65404300 
00000000 
66403600 
00000000 
00000000 
00000000 
00000000 
66041600 
66405500 
65407300 
00000000 
00000000 


00246251 
62516303 
63056060 


00000000 
00000000 
00000000 
00000000 
07200000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00200273 
00000000 
00000000 
05600000 
00000000 
07300000 
00000000 
00000000 
00000000 
00000000 
01000641 
00000000 
00000000 
01600266 
00000000 
02700714 
04300362 
00000000 
03600210 
00000000 
00000000 
00000000 
00000000 
05200334 
05500000 
07300000 
00000000 
00000000 


63016060 
60600524 
05246254 


65406200 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


°00000000 


00000000 
00000000 
00000000 
00000000 
00000000 
65020100 
00000000 
00000000 
00000000 
64021400 
00000000 
00000000 
00000000 
65407400 
65406000 
00000000 
65401200 
65404700 
66402400 
00000000 
65403200 
65403500 
65403700 
65404200 
00000000 
65404700 
66041200 
00000000 
64405300 
64021400 
00000000 
00000000 


05246251 
62516303 


63050043 


06200000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00200133 
00000000 
00000000 
00000000 
00200323 
00000000 
00000000 
00000000 
07400000 
06000000 
00000000 
01200746 
01700322 
02400000 
00000000 
03200532 
03500637 
03700321 
04200132 
00000000 
04700231 
05400023 
00000000 
05300003 
00200323 
00000000 
00000000 


00000000 


SEGZERO 


00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


000014384 
00000001 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


NUMBER OF ERRORS DETECTED « 


00000000 


00000077 
65200014 
00000000 
00000000 
00000000 


O, COMPILATION TIME «& 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


00004137 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


477 SECONDS, 


00000000 


00000430 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


PRT S1ZE « 2803 TOTAL SEGMENT SIZE » 15836 WORDS! DISK SIZE = 720 SEGS! NO, PGM, SEGS « 


ESTIMATED CORE STORAGE REQUIRED = 27326 WORDS, 


ESTIMATED AUXILIARY MEMORY REQUIRED = 


NUMBER OF CARD@#IMAGES PROCESSED = 


QO WORDS, 


3685, 


00000000 


00001132 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


00000044 
00000000 
00000000 
00000000 
00000000 


BURROUGHS B#5700 XALGOL COMPILER MARK XV1Ie09120 WEDNESDAYs 04/19/78» 1:58 PM, 


PASCAL /JUNK 


SOURCE FILES ELPASO /y819005 


A @* ALPHA ## DECLARED IN SEGMENT 5 AT 00008469 
*0000053F* 00000540 *00000547* 00000553 
A =" REAL ARRAY ** WAME PARAMETER ©" DECLARED IN SEGMENT 
A ™" REAL ARRAY "* WAME PARAMETER *" DECLARED IN SEGMENT 
*00000597« 
we REAL ARRAY © NAME PARAMETER **™ DECLARED IN SEGMENT 
REAL ARRAY ©" NAME PARAMETER *" DECLARED IN SEGMENT 
00000604 00000609 . 
A 2° REAL ARRAY ewe NAME PARAMETER = DECLARED IN SEGMENT 
A we REAL ARRAY we NAME PARAMETER #* DECLARED IN SEGMENT 
00000628 
ABSX = REAL ©" DECLARED IN SEGMENT 4 AT 00000316 
*00000329% 00000330 £00000332%«00000333% 00000334 00000335 
ADDADDR ** LABEL °°" DECLARED IN SEGMENT 10 aT 00001163 ** OCCURS AT 00001226 
00001176 
ADDR °°" INTEGER ** DECLARED IN SEGMENT 37 ay 00002814 
*00002819%*00002847% 00002852 00002856 00002878 *00002879*% 00002913 


AT 00000594 
AT 00000595 


AT 00000601 
AT 00000602 


> > 
a 
4 


AT 00000613 
AT 00000615 


nN 1 nn mn 


ALFA 7" OFFINE =") oFclaRED IN SEGMENT 2 at 00000089 


00000513 00001554 00001750 00004847 00001852 00001970 00001975 00001993 00001994 00002090 00002110 
00002312 00002660 00002664 000020896 00003202 00003324 
ALFACONST ** DEFINE © DECLARED IN SEGMENT @ AT 00000194 
00004002 00004854 00003946 00004965 00004993 00002312 00002660 00002664 00002896 00003202 
ALFANUM ©" DEFINE = QECLARED IN SEGMENT 2 aT 00000858 
00000894 00000897 0000090; 
ALFATYPE e# INTEGER w= DECLARED IN SEGMENT 2 AT 00000161 
#00000512*% 00001506 00001521 00001525 00001554 00002312 00002660 00002664 00002896 00003202 
ALGOLCARD °" REAL ARRAY "" DECLARED IN SEGMENT 2 aT 00000128 
00000360 00000361 00000362 00000363 000004865 
ALGOLENT |" INTEGER ©" DECLARED IN SEGMENT 2 aT 00000130 
0000032? *00000324*% 00000327 *00000328*%00000336%400000339%*000003424%00000343%8#00000344%400000363%*00000485= 
*00001802%% #0000 1 880% #0000 1900840000490 1 *e%00001902%40000 1 903% 400001904%400001905%800001906%#00001907%*«00001910" 
#000049 49%%0000 1942440000191 6440000 4925 4400001926 440000 1927 #0000 1929440000 1938400001948 *400001949%%00001950% 
00001958 *00001957%#00001956%*0000 1959480000 19604#0000 1964%#0000 196540000 1966%400001969%#0000197 3#* 0000197 Ge 
*000019754#00001976 4400001977 440000 1 982% 40000 1986 440000 1989440000 1992440000 19930000 19944%400001995%#00001996" 
#00001999 4800002001 «#0000204 0%40000201 1% 400002012 44000020 144400002024 400002025 %%00002026 4800002027 #%00002028% 
*000020304%00002034%% 000020 35%%000020 36% %00002037%%00002046%«00002063%*00002065%#0000 2066440000207 444000020788 
#00002088 4400002099 «400002106 4800002] 4 3%%000024127 400002128 4800002129 *#00002) 37 4400002144 4400002151 4400002152" 
#00002465 4800002769 #4000022 46 %#00002229%400002228 400002246 4400002250 4400002258 %90000 2266 «400002267 «00002275 
*00002278%#0000299 3##000022954«00002309%%000023174«00002330%%00002333%%00002340%«0000234 3%*00002352%%0000235 3" 
*0000236$4%00002375 4400002379 4400002390 % 40000239 1 «#0000240 14800002429 400002431 %400002432%8000024434%%00002445« 
*000024464*00002454 4800002455 440000245 6% 40000245 7# 40000245 9%400002472%4000025434800002582%*00002956%«00002959" 
*€000029680%*000029964%*00002965*#00009966%800002967%*400002968* 40000297 1##0000 2974480000 2975*400002976%e00002979% 
*00002980 «#00002982%400002986 #400002990 #80000 304 1*#00003012%*000030 1 3*+#000030144400003015##00003018%*00003020" 
00003025 *00003026%*#00003027%400003028%e00003029*% 00003030 #0000 3031**000030 344000030 36%*00003040%40000304 4» 
*00003042« 00003043 0000304440000 3045%%00003046%40000 3047 «#00003048%+40000 3051 «#0000 3054%*00003056400003058" 
#000030594%0000 3060440000 3064 4%00003167 440000317 14400003176 4%00003185%40000 3188 %40000333744000033384%00003342" 
*00003344%%#0000 3347440000 33468440000 3349%%0000 3350%%0000 3352%#00003354%400003360%#0000 3362%*0000 3363%**00003365" 


#0000 3367 «#0000337 4##0000 3389 %%0000 3395 %%00003397 #40000 33984 #0000 3409 0000 3410%%00003414 **00003416%e00003417" 
*000034184#00003422%%00003423%%00003439% 


ALGOLNAME =" ALPHA == DECLARED iN SEGMENT 2 AT 00003455 


*#000034574#00003458«""00003459% 0000346; 00003564 


ALGOLPNT ee POINTER w= DECLARED IN SEGMENT ep AT 00000429 


ALIST 
ANDSY 
ARRAYS 


ARRAYSY 


#00000 328**00000 328% #00000 336**00000339%#00000 34 1%*00000 34 3% #00000 344%#00000 363% 00000364 *00000485* 000004886 
#00001807% #00001 880 #0000 19004400001 904 #%000019024400001903%%00001904 #00001 905%%00001906%%00001907#800001910" 
*000019184#000019124#0000191 64% 00001 925%" 00001 926%%00001927%#00001929%#00001938%#00001948e«00001949%«00001950" 
*000019564#00001958%#00001959%#00001960%40000 1964480000 19650000 1966%#00001969%e00001973"e 0000197 4ex 00001975» 
#00001976 «00001977 440000 196244%0000 1988 %900001989 4400001992 4400001993%%00001994%%00001995 %%00001996% 00001999" 
*0000200¢##00002010#*0000201 1%#00002012%4000020 14%#00002024##00002025% 40000 2026*#00002027%*00002028*00002030™ 
#000020 34480000 2035 «0000 20 36%%00002037 4000020466 %%00002063%#0000 206540000 2066440000 20744%00002078 %%00002088« 
#*00002099 «%00002 10644000024 134400002127 44000021 284400002129 4800002137 4400002144 4400002151#*00002152%%00002165m 
*00002169%#00002218%«000022224%0000222844%00002246%«00002250%*00002258%#00002266%#00002267%*00002275%400002278% 
#0000229 3 «400002295 «400002309 4400002317 44000023304 4000023334#000023404400002343%%000023524800002353%400002364» 
00002375 «400002379 4400002390 4400009391 *90000240 4 ##00002429 4400002431 #4000024 32480000244 34*00002445 4400002446" 
*000024544%*00002455**000024564#000024574#00002459%*0000247 2%*0000254 3#*00009582%#00002956%#00002959%%0000 2960" 
#0000296 4 ¥4#00002965 4% #00002966%400002967 %%0000 2966480000297 j ##0000297 4440000 2975%4%00002976 4400002979 %n00002980" 
*00002 982 ** 00002 9864*000029904#0000301 1 **00003012%#000030134*00003014%400003015**00003018**00003022%*00003026" 
#0000 3027 %%0000 3028%*00003029%%0000 3034 %%00003034%%0000 30 36#*00003040%%0000 304 1##00003042%*0000 3044%%00003045* 
#00003046 4400003047 #40000 3048 4400003054 #40000 3054640000 3056 %%0000 3058 «0000 3059 % «0000 3060 #0000 3064%%00003167% 
*00003171%**00003476#%*00003185%*00003188%#00003337%40000 333880000 3342440000 3344%#0000 3347480000 3348400003349" 
#0000 3356 440000 3352640000 3354440000 3360 #40000 3362440000 3363%#0000 3365 %«0000 3367440000 3374480000 3389 %%00003395* 
%*0000339% «#0000 3398440000 3409440000 3410440000341 14#%0000 34 4 6%#00003417 %4000034 18440000 3422460000 3823%40000 3439% 
ee FORMAT =" pECLARED IN SEGMENT 3 aT 00000187 

00001049 
ee DEFINE ** OECLARED IN SEGMENT 2 aT 00000496 

00000476 00000948 00003638 0000;649 

ee DEFINE e= DECLARED IN SEGMENT 2 AT 00000094 

00001193 00002059 00002122 00002723 00002983 

e- DEFINE =" DECLARED IN SEGMENT 2 aT 00000206 

00000938 00002712 


ARRAYVAR ©" BOOLEAN ©" DECLARED IN SEGMENT 38 AT 00002943 


ARROW 


00002954 *000029574%#00002965e 00002974 &00002975*% 00002989 *00002990* 00003064 
"" DEFINE "" npecbARED IN SEGMENT 2 at 00000201 
00000475 00000476 00001182 00001262 00001263 00002686 


ARRSTRUCT ©" INTEGER ** DECLARED IN SEGMENT 36 aT 00002647 


ARRTYPE 


ASSIGN 


*000027386**0000207490% 
e~ DEFINE = DECLARED IN SEGMENT 2 AT 00000096 
00004198 00002062 00002425 00009723 00002741 00002742 00002983 
om LABEL =" DECLARED IN SEGMENT 26 AT 00002201 = OCCURS AT 00002208 
00002229 00002934 


ASSIGNMENT ©" PROCEDURE -°= DECLARED IN SEGMENT 2 AT 00002198 


00002237 00002560 00002584 


ASSIGNSY °" DEFINE "=" DECLARED IN SEGMENT 2 AT 00000201 


0000102F 00002208 00002209 00002233 00002234 00002423 00002425 00002426 


ASTERISK’ °° DEFINE "= DECLARED IN SEGMENT 2 aT 00000195 


AX = 
AO w= 
AL == 
A2 2 


8 Cd 


00000476 00001629 00001636 00001649 
INTEGER ** DECLARED IN SEGMENT 2 AT 08000578 
*00000589%#000008590% 00000594 
REAL == DECLARED IN SEGMENT 2 AT 00000577 
*00000604* 00000606 00000608 *00000625* 00000626 00000645 00000646 00000648 00000649 
REAL ©*= DECLARED IN SEGMENT 2 AT 00009577 
*00000604* 00000607 *00000625* 00000626 00000647 
INTEGER ** DECLARED IN SEGMENT 2 AT 09000578 
#00000623% 00000626 00000635 00000638 #00000640* 00000650 00000651 
REAL ARRAY ©" NAME PARAMETER ©" DECLARED IN SEGMENT 2 AT 00000601 


B 7" REAL ARRAY '* NAME PARAMETER *=™ 


00000604 00000609 


DECLARED IN SEGMENT 2 AT 00000602 


BEGINNUM =" INTEGER ©" DECLARED IN SEGMENT @7 AT 00002242 
*00002245" 00002958 

BEGINSY == DEFINE == DECLARED IN SEGMENT 2 aT 00000202 
00000935 00002948 00002586 00003400 

BITPATTERN ** DEFINE © DECLARED IN SEGMENT 2 AT 00000212 
00001306 00001441 00001564 00001617 00001645 00001666 00001699 00001706 00001726 00001752 00001767 
00001794 00001797 00001802 00002267 00002353 00002391 

BLANK © neFINe =" peclaReo IN SEGMENT 2 aT 00000856 
00000882 00000865 00000890 00000893 00000899 0000090; 00000965 00000966 00000969 00000973 00000980 
00000981 00000983 00000984 00001002 00001005 00001011 00001025 00001027 00001029 00001031 00001033 
00001035 00001038 00001041 00001054 00001059 00001066 00001067 00001070 

BLOCK ** PROCEDURE "= pECLARED IN SEGMENT 2 aT 000031347 
0000338g 00003440 00003534 00003520 

BLOCKTAB «= REAL ARRAY DECLARED IN SEGMENT 2 AT 00000136 
00000589 *00002793#*00003360« 

BOOLEXPR == DEFINE © DECLARED IN SEGMENT 2 AT 00001812 
00002267 00002353 00002391 ; 

BOOLTYPE == INTEGER ** DECLARED IN SEGMENT 2 AT 00000161 
#00000516% 00000524 00001435 0000144; 00001561 00001643 00001697 00001797 00001971 00002267 00002353 
00002393 

BRACKFTSINWITH °* DEFINE 


"m DECLARED IN SFGMENT 2 aT 00000077 
00001172 00002504 


BUF e»* REAL ARRAY =" DECLARED IN SEGMENT 41 AT 00003464 
00003468 00003470 
BO e= REAL = DECLARED IN SEGMENT 2 AT 00000577 
*00000604* 00000606 00000608 
B1 e» REAL =" DECLARED IN SEGMENT 2 AT 00008577 


*00000604" 00000607 


C =" ALPHA =e DECLARED IN SEGMENT 2 AT 00000861 
00000882 *00000885* 00000887 00000889 «00000890* 00000891 00000892 *00000893* 00000897 00000898 *00000899« 
#00000901% 00000962 00000964 %00000965%%00000966m 00000967 *00000969*% 00000970 00000972 «00000973« 00000974 
*00000975% 00000978 *00000980%*00000984* 00000982 #00000983%*00000984* 00001000 «*00001002%*00001005**00001011* 
#00001025% 00001026 *00003027* 00003028 «00001029*% 00004030 #00001031*% 00001032 #00001033* 00001034 *00001035« 
00001036 #00001038« 00003039 *0000104,% 00001042 00001043 00001044 00001045 00001046 00001047 00001049 
00001053 *00001054**00001059* 00001060 00001063 *00001066%*00001067% 00001068 *00001070«*00003477% 
c 7" INTEGER ** DECLARED IN SEGMENT 29 at 08002287 
*0000232%*% 00002327 
CALLGEN == BOOLEAN *e DECLARED IN SEGMENT 16 AT 00001735 
*00007769%**00004775*% 00001796 
CARD = FILE == DECLARED IN SEGMENT 2 AT 00900033 
00000884 00001065 00003475 
CARDCNT ©" INFEGER ©» DECLARED IN SEGMENT 2 AT 00000032 
00000360 00000407 00000589 *00000884**00001065* 00001196 00001312 00001416 00001467 00001478 00001485 
00001492 00001607 00001862 00001907 00001912 00001960 00001999 00002037 00002099 00002144 00002220 
00002430 00002444 *00003475# 00003527 
CARDLENGTH = INTEGER = DECLARED JN SEGMENT 2 AT 00000358 
00000396 00000884 00000956 00007105 #00001053%*#00001054* 00001055 *00004056* 00001057 00004065 #00003474% 
00003475 
CARDPNI = POINTER #8 DECLARED IN SEGMENT 2 AT 00000129 


*00000883%#00000884%#00000885%#00000890 % "0000089 3##00000899%«00000901«%*00000957% 00000958 *00000965%*00000966% 
*00000969%*0000097 3##00000980%#000009681 #0000098 3%4000009844#00001002%*00001005%*00001011**00001025%«00001027% 
000010294 400001031 «4000010334 400001035 4400001036 040000104 1440000 1054440000 1059 4%00001064%4000010654n0000L066™ 
#0000406F ##00001070%«%00003475« 


CASEHASH "© DEFINE = DECLARED IN SEGMENT 29 AT 00002285 
000020324 
CASENUM ee INFEGER ee DECLARED IN SEGMENT 29 AT 00002287 


*00002290*% 00002343 
CASEPART *= LABEL == DECLARED IN SEGMENT 37 AT 00002837 = OCCURS AT 00002855 
00002822 
CASESTAT ee PROCEDURE = DECLARED IN SEGMENT 2 AT 00002283 
00002348 00002588 
CASESY == DEFINE = DECLARED IN SEGMENT 2 AT 00000203 
00000386 00000931 00002588 00002822 
CASETAB =" INTEGER ARRAY "=" DECLARED JIN SEGMENT 29 AT 00002286 
00002325 *00002327*" \ 
CASETYPE 7" INTEGER ©" DECLARED IN SEGMENT 29 AT 00002287 
#00002295« 00002296 *00002297% 00002299 00002302 «00002315 00002316 
CASETYPE *" INTEGER =" DeCcbARED IN SEGMENT 37 AT 00002814 
#00002873% 00002874 00002878 00002888 «00002899% 00002903 
CASETYPEID == LABEL e#= DECLARED IN SEGMENT 37 At 000028617 == OCCURS AT 00002873 
00002664 
CH ee REAL ARRAY = DECLARED IN SEGMENT 2 AT 00000126 
0000048F 00000888 00000890 00000893 00000899 00000901 00000965 00000966 
00000981 00000983 00000984 00001002 00001005 00001011 00001016 00001025 
00001038 00001035 00001038 00001041 00001054 00001059 00001066 00001067 


00000969 00000973 00000980 
00001027 00001029 00001033 
00001070 *00001902«*00001903« 


*00001904%4#00001925"%000019264%00001927%%00001948%«00001949%*00001 9500000196 4%*00001965*#*00001966%#0000201 08 
*000020 14 %*000020 124400002034 #4000020 35 *4% 00002036 4%0000 206344000024 27 ¥*00002228 % #0000229 34#00002317%s00002429" 
#0000244 3 %%0000 2454 «400002455 400002457 «40000247 2440000254 34400002961 *#00002968%#00002976 4400003011 400003058" 
#0000 3047 «40000 3059%*0000 31764%*00003338%«00003344%%00003348%%0000 3350e4 00003 36 34% 0000 3397%*00003417% "0000 3422* 


CHANGFLINE ** BOOLEAN = VALUE PARAMETER "%* DECLARED IN SEGMENT 2 aT 00001875 

CHANGELINE ee BOOLEAN == VALUE PARAMETER =e DECLARED IN SEGMENT 2 AT 00004876 
00004923 

CHAR *= DEFINE == DECLARED IN SEGMENT 2 AT 80000087 
00000524 000041397 00001301 00003355 00001449 00003464 00001596 00001597 
0000172 00001790 00001793 00001897 00001970 00001976 00001995 00002062 
00002219 00002223 00002316 00002415 00002433 00002447 00002660 00002664 
00002875 00002901 

CHARCNT == {N¥eGeR == pEcLARED IN SEGMENT 2 aT 00000130 
00000396 #0000088 3#*#0000088 4 *#00000885%«00000890 #0000089 3##00000899%%00000901% 


00001604 00001605 00001658 
00002075 00002125 00002138 
00002722 00002763 00002779 


00000956 00000957 «00000965« 


*00000966%*00000969%*0000097 3#*00000980%+400000981%#0000098 3#+*00000984%«00001002%*00001005* 00001006 «000010i4™ 


¥00001023 «#0000 1027 «000010294 400001034 #%00001033%%00001035 400001038 ee00001041% 
#0000 1059 «#0000 1064 4«0000 1065440000 1066440000 1067 #0000 1070 4400003475 %#00003524% 


00001052 «00001054««00001057* 
00003527 


BREE RONS) om §6DEFY 


NE oe 


DECLARED |N SEGMENT B AT 00000195 


0001016 00004552 00004554 00002347 00002660 00007664 00002774 00002894 
CHARPNT = POINTER *e DECLARED IN SEGMENT 2 AT 00000327 

#0000048%* 00000885 00000890 00000893 00000899 00000904 00000965 00000966 
00000981 00000983 00000984 00001002 00001005 00001009 00001011 00001016 
00001031 00001033 00001035 00001038 00001041 00001054 00001059 00001066 
00001903 00001904 00003925 00003926 00001927 00001948 00001949 00001950 
00002018 00002013 00002032 00002034 00002035 00002036 00002063 00002327 
00002429 00002443 00002454 00002455 00002457 00002472 00002543 00002961 
00003018 00003047 00003059 00003176 00003338 00003344 00003348 00003350 
00003422 


00002896 


00000969 
00001025 
00001067 
00001964 
00002228 
00002968 
00003363 


00003202 


00000973 
00001027 
00001070 
00001965 
00002293 
00002976 
00003397 


000009860 
00001029 
00001902 
00001966 
00002317 
00003011 
00003417 


CHARTyPE == INTEGER # DECLARED IN SEGMENT @ AT 00000164 
*00000520« 00004544 00004424 0000455q 00002342 00002660 00002664 00007896 
CHECK = BOOLEAN = DECLARED IN SEGMENT 14 AT 00001282 
*#0000130¢* 00001302 00001308 
CHECK ** BOOLEAN ®*= DECLARED IN SEGMENT 18 AT 00001879 
#00001899* 00001901 00001908 
CHECKEXPR ©" GEFINE © DECLARED IN SEGMENT @ AT 00001144 
00001198 00001416 00002220 00002430 00002444 
CHECKOPFION =" BOOLEAN *°™" DECLARED IN SEGMENT 2 AT 00000157 
#00001045«% 00001196 00001301 00001899 00002219 00002430 00002444 «*00003476« 


00003202 


00001793 


00002547 


00001853 
00002173 
00003185 


00003089 


00001894 
00003117 


00003218 


00003202 #00003209* 


00003134 


00000904 
00001554 
00003494 


00001884 
00002312 
00002694 
00003198 
00003293 
00003366 
00003439 


00002075 


00002840 


00001856 
00002330 
00003186 


00002086 
00003123 


00000956 
00001946 


00004890 
00002405 
00002794 
00003202 
00003307 
00003372 


*00003510* 


00001726 #00001728* 00001752 


CHECKTYPES == FINE ©" DECLARED IN SEGMENT 2 AT 00000660 
00001197 00001355 00001597 00001605 00001658 00001721 00001790 
00002316 00002433 00002447 0000290, 
COLON = DEFINE = DECLARED IN SEGMENT 2 aT 00000201 
00000478 00001026 00001976 00004983 00002334 00002335 00002545 
00002916 00003403 00003256 00003258 00003259 00003312 
COMMA =" DEFINE =" DpECLARED IN SEGMENT 2 aT 00000200 
00000477 00001207 00001357 00001358 00001608 00001609 00001848 
00001919 00001945 00002002 00002072 00002076 00002111 00002135 
00002677 00002732 00002837 00002839 00002908 00003102 00003484 
00003502 
COMPSTAT *= PROCEDURE == DECLARED IN SEGMENT 2 aT 00002240 
00002269 00002586 00003497 
CONCAT == PROGEDURE e= DECLARED IN SEGMENT @ AT 00001833 «= FORWARD AT 
0000149% 00001872 
CONST ©" OEFINE © DECLARED IN SEGMENT 2 aT 00000062 
00000528 00000532 00001299 00001323 00001393 00001395 00001554 
00002418 00002559 00002660 00002664 00002668 00002896 060003090 
00003357 
CONSTANT =" DEFINE ©8 DECLARED IN SEGMENT 2 AT 00000734 
00001554 00001619 00002312 00002660 00002664 00002896 00003202 
CONSTSY "==" DEFINE == DECLARED JN SEGMENT 2 AT 00000207 
00000939 00003192 00003404 
CONSTTAB = REAL ARRAY DECLARED IN SEGMENT 2 AT 00000116 
*00000534* 00001398 00001554 00002335 00002660 00002664 00002896 
CONSTTABTOP = INTEGER DECLARED IN SEGMENT 40 AT 00003155 
*00003160* 00003436 
CONTYPE == INFEGER =" DECLARED IN SEGMENT 29 AT 00002267 
*00002312* 00002313 00002315 00002316 
CONVAL ©" INTEGER ©** DECLARED IN SEGMENT 99 AT 00002287 
#00002312« 00002317 00002321 00002324 00002325 00002327 
CTYPE "" INTEGER *°* DECLARED IN SEGMENT 37 aT 00002614 
*00002896% 00002897 00002899 0000290; 
CTYPE "=" INTEGER *" DECLARED IN SEGMENT 40 AT 900003149 
*00003202% 00003203 00003231 00003232 00003262 00003263 
CURFUNC ** INTEGER © OECLARED IN SEGMENT 2 AT 00000177 
000022027 #0000338, **00003385" 
CURKIND == INTEGER ee DECLARED IN SEGMENT 39 AT 00003070 
*0000 308% **00003090* 00003097 00003105 00003117 00003123 00003331 
CURLENGTH = INTEGER == DECLARED IN SEGMENT 2 AT 00000862 
#00000689% 00000891 «*00000893* 00000895 00000897 «*00000899*% 00000903 
*00001008* 00001009 #00001010* 00001013 00001014 00001018 00001020 
00001993 00002312 00002660 00002664 00002896 00003202 00003483 
CURLEVEL == INTEGER © peclLARen 1N SEGMENT @ AT 0000017} 
001166 00004478 00004319 00004345 00004389 00003427 00004554 
000020538 00002064 00002082 00002316 00002126 00002159 00002227 
00002487 00002555 00002653 00002660 00002664 00002673 00002674 
00002896 00003096 00003098 00003109 00003136 00003166 00003467 
00003233 00003253 00003265 00003270 00003279 00003280 00003292 
00003326 00003338 00003339 00003344 00003348 00003350 00003363 
00003380 00003383 +00003385« 00003386 00003407 00003417 00003422 
CURMOnE ©" INTEGER == DECLARED SEGMENT 2 aT 00000180 
*00001275« 00001306 #00001 364 «400004 3864400001399 s00001441% 00001562 
0000164% 00001666 *00001668* 00004684 000041700 000041707 
*0000179K* 00001802 00002267 00002353 00002391 
CURNAME£ == ABPHA "= DECLARED IN SEGMENT 2 aT 0000086, 
*00000889%**00000892%*00000903* 00000907 00000908 00000909 00000910 


00000911 


00000912 


00002138 


00002864 


00001859 
00002332 
00003247 


00002205 
00003202 


00000958 
00001953 


00001939 
00002412 
00002860 
00003212 
00003310 


*00003378% 


#00001564«400001585%#00001617% 


00004767 


00000913 


00002223 


00002909 


00001887 
00002519 
00003257 


00002312 
00003203 


00000959 
00001959 


00002030 
00002443 
00002868 
00003226 
00003318 
00003379 


00001628 
00001794 


00000944 


CURNAME2 


cURSYy 


CURTYPE 


00000915 
00000926 
00000937 
00001222 
00003443 
00001513 
00002116 
00002578 
00002663 
00003198 
00003376 


ae AEPHA on 
*00000869%#00000898% 00000945 


00001518 
00002408 
0000270$ 


00003253 00003275 *00003276* 


00000946 
00000927 
00000938 
00001319 
00001455 
00001518 
00002454 
00002571 
00002673 
00003202 
00003483 


00001554 
00002487 
00002832 


00000947 
00000928 
00000939 
00001345 
00001456 
00001522 
00002159 
00002572 
00002694 
00003226 
00003494 


DECLARED {N 


00001861 
00002555 
00002860 


00000918 
00000929 
00000940 
00001389 
00001458 
00004533 
000023192 
00002573 
00002703 
00003253 
00003499 


SEGMENT 2 


00000947 
00001890 
00009567 
000026692 
00003279 


00000949 
00000930 
00000941 
00001407 
00001473 
00001554 
00002405 
00002574 
00002832 
00003279 
00003497 


AT 00000864 


00000949 
00001939 
00002575 
00002868 


*00003284« 


00000920 
00000931 
00000942 
00001412 
00001481 
00001881 
00002487 
00002576 
00002860 


*00003278 


00001222 
00002030 
00002578 
00002896 
00003292 


00000924 
00000932 
00000943 
00001423 
00001488 
00001890 
00002555 
00002577 
00002862 
00003279 


00001319 
00002053 
00002653 
00003096 
00003307 


00000922 
00000933 
00000944 
00001424 
00001496 
00001939 
00002565 
00002579 
00002868 


00003284" 


00001345 
00002082 
00002660 
00003109 
00003318 


00000923 
00000934 
00000945 
00001426 
00001498 
00002030 
00002566 
00002580 
00002896 
00003292 


00001389 
00002116 
00002664 
00003198 
00003370 


00000924 
00000935 
00000947 
00001427 
00001503 
00002053 
00002568 
00002653 
00003096 
00003307 


00004427 
00002159 
00002673 
00003202 


00000925 
00000936 
00000949 
00001437 
00001508 
00002082 
00002569 
00002660 
00003109 
00003315 


00001508 
00002312 
00002694 
00003226 


w= oiNTegeR == pecbhaRepn IN SEGMENT 2 at 00000178 

00000383 00000383 00000386 *00000906*400000907 *«000009 1 3**00000928 #000009 35%*0000094 4 **00000945*«00000947% 
*#00000949%#00000951%*00000952%#00000953* 00000955 *00000964%**00000971%#00000980* 00000989 #*00001002#*00001015* 
#00001025% 00001026 «00001027 00004028 £00001029* 00001030 *00001031« 00001032 +*00001033% 00001034 #00001035« 


00001036 00001482 00001186 00001207 00001208 00001210 00001213 00001220 00001263 00001291; 00001317 
00001343 00001357 00001358 00001359 00001361 00001387 00001409 00001415 00001418 00004419 00001427 
00001432 00001433 00001439 00001446 00004450 00001460 00001469 00003470 00004475 00001483 00001490 
0000153 00001552 00001554 00001556 00001567 00001572 00001576 00001580 00001583 00001898 00001608 
00001609 00001610 00001642 00001629 00001631 00001636 00001637 00001638 00001644 00001649 00001678 
00001680 00001689 00001694 00001695 00001702 00001709 00001710 00001746 00001749 00001754 00001755 
00001756 00001757 00001758 00001759 00001769 00001770 00001773 00001774 00001779 00001780 00001843 
00001848 00003853 00001856 00001859 00001864 00001871 00001884 00001883 00001885 00001887 00001888 
00001919 00001920 00001921 00001939 00001941 00001943 00001945 00001946 00001967 00001978 00001983 
00002002 00002003 00002004 00002030 00002038 00002039 00002048 00002051 00002072 00002076 00002080 
00002096 00002097 00002307 00002114 00002114 00002135 00002441 00002342 00002154 00002157 00002173 
00002175 00002176 00002179 00002189 00002208 00002210 00002234 00002248 00002251 00002252 00002253 
0000225§ 00002256 00002268 00002274; 00002273 00002277 00002298 00002303 00002305 00002307 00002312 
00002330 00002332 00002334 00002335 00002337 00002340 00002341 00002342 00002354 00002357 00002359 
00002388 00002381 00002382 00002383 00002386 00002388 00002403 00002423 00002426 00002427 00002435 
00002436 00002439 00002441 00002448 00002451 00002468 00002485 00002519 00002520 00002522 00002534 
00002545 00002547 00002553 00002586 00002587 00002588 00002589 00002590 0000259; 00002592 00002593 
00002594 00002651 00002660 00002664 00002665 00002671 00002677 00002678 00002683 00002686 00002689 
00002710 00002742 00002715 00002732 00002733 00002734 00002749 00002752 00002754 00002769 00002772 
0000277 00002789 00002801 00002805 00002821 00002822 00002823 00002828 00002837 00002839 00002840 
0000285¢ 00002858 00002864 00002866 00002886 00002887 00002890 00002891 00002896 00002908 00002909 
00002918 00002911 00002915 00002919 00003081 00003085 00003087 00003088 00003094 00003102 00003103 
00003107 00003437 00003138 00003340 00003169 00003174 00003185 00003186 00003187 00003389 00003192 
00003196 00003200 00003202 00003215 00003216 00003217 00003220 00003224 00003228 00003236 00003237 
00003238 0000394, 00003247 00003248 00003257 00003258 00003259 00003267 00003268 00003269 00003287 
00003289 00003290 00003312 00003316 00003336 00003388 00003390 00003400 00003402 00003404 00003478 
0000348% 00003485 00003489 00003502 00003503 00003504 00003505 00003517 00003520 
*s INTEGER "= DECLARED IN SEGMENT 2 AT 00000179 
*00001179%#00001979« 00001191 00001192 00001197 *00001198* 00001204 00001205 00001206 00001217 *00001227« 


#000012284400001229H 00001234 400004237% 00001238 400001244 4400001259 %%00001260« 00001264 #00001327% 00001335 
*00001338 «400001339 «#0000 134606400001 3504400001 3526%00001353% 00001355 «00001399%*00001409* 00001410 00001417 
*000014244#0000 4 427%*000014 354400001439" 00001440 *£00001441% 00001449 *00001453* 00001464 00001465 00001466 
*000014794%00001475e 00001476 «00001479%%00001483% 00001486 #00001490% 00001493 #00001494%#00001501%%00001506% 
*00001514%*00001516#*#00001521%#00001525%s00001534* 00001535 *00001536**000015424#00001548%+*00001549%«00001550" 
*00001554% 00001560 *00001561*#00001569%«00001585* 00001595 00001596 00001597 00001603 00001604 00001605 
*0000161@« 00001631 00001643 00004653 00001655 00001657 00001658 «00001659* 000016614 *00001663##00001664" 


00001684 00001691 00001697 00001716 00001718 
00001786 00001789 00001790 00001792 00001793 
00001858 00001861 *00001870«*000016814% 00001882 
O000197£ 00001981 00001987 *00002030* 00002032 
00002166 00002007 00002223 00002267 00002269 
00002438 00002437 00002440 00002447 00002449 
CURVAL =" REAR ** DECLARED IN SEGMENT 2 AT 00000860 
*00000964%4#00000966%*00000972%%00000992% 00000995 
00002472 00002537 00002543 00002660 00002664 
CVAL ** REAL ©" DECLARED IN SEGMENT 37 AT 00002816 
*00002896*% 00002900 00002904 00002905 
CVAL @h REAL == DECLARED IN SEGMENT 40 AT 06003350 
*00003209* 00003904 00003209 00003214 
CX = ALPHA © DECLARED IN SEGMENT 2 AT 0000086, 
*00001044*% 00001042 000010494 00001045 00001046 
Ci ™= ALPHA ©" DECLARED IN SEGMENT 40 aT 00003151 
*00003275* 00003284 
C2 "= ALPHA =" DECLARED IN SEGMENT 40 aT 00003151 
*00003275*" 00003264 
D oe* REAL ©" DECLARED IN SEGMENT 34 AT 0000f484 


00001720 00001721 *00001722**#00001724% 
*00001797% 00001846 00001847 000018514 
00001896 00001910 00001911 «00001939 
00002075 00002089 00002090 00002110 
00002272 00002295 00002353 00002355 
00002452 00002493 00002494 00002500 


*00000997«*00001016%#00001021* 00001554 
00002896 00003176 00003377 00003179 


00001047 00001048 00001051 


*00002500#*0000250 4 **00009502**0000950 3%*600002504**00009544* 00002542 
DECL =" BOOLEAN = VALUE PARAMETER = DECLARED IN SEGMENT 2 AT 00000228 
DECL == BOOLEAN = VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00000232 


00000229 


DECL == BooLEAN = VALUE PARAMETER =" DECLARED IN SEGMENT 2 AT 00000580 
DECL "* BOOLEAN =" VALUE PARAMETER ™" DECLARED IN SEGMENT 2 AT 00000584 


*00002436% 00002456 


0000058! 00000590 
DECLAREVARS ** PROCEDURE °°" DECLARED IN SEGMENT 2 aT 00002936 
0000306$ 00003270 00003366 
DISPLa~aY °" Rea~b ARRAY ©" DECLARED IN SEGMENT 2 at 00000072 
00004168 000043319 00004345 00004389 00003427 00001554 0000188; 00004890 00001939 
00002082 00002416 00002159 00002339 00002405 00002487 *00002512* 00002555 00007653 
0000269%@ 00002860 00002868 000028696 00003109 00003202 00003318 
- OIVSY ©" DOFFINE ©" pECLARED IN SEGMENT 2 aT 00000196 
00000938 00001641 00001664 
DOLLAR = DEFINE ** DECLARED IN SEGMENT 2 AT 00000856 
00001039 
DOSY =* DEFINE =" DECLARED IN SEGMENT 2 AT 00000204 
00000908 00002354 00002356 00002357 00002448 00002450 00002451 00002520 00002521 
DOT =" DEFINE °" DECLARED IN SEGMENT 2 AT 00000201 
— 00000476 00001028 00001182 00001213 00001232 00001263 00003517 00003520 
pOUBSLrFpDOT eo FINE #* oOFcbaRED IN SEGMENT @ aT 00000200 
00000478 00001029 00001598 00002660 00002664 
DOWN ** BOOLEAN 2°" pECLARED IN SEGMENT 32 AT 00002395 


DOWNTOSY w= DEFINE = DECLARED JN SEGMENT 2 AT 00000205 


00000942 00002436 
DUMMY #= 
DUMMY == 


INTEGER = DECLARED IN SEGMENT 13 AT 00001406 
INTEGER °°" DECLARED IN SEGMENT 20 AT 00002009 


DUMPOPTION ©" BOOLEAN *" DECLARED IN SEGMENT 2 aT 00000157 


00000362 *00001046» 


EDITION ©" peRINE ©" peclaRED IN SEGMENT 2 aT 00000026 


00000492 

ELSESY = DEFINE == DECLARED IN SEGMENT 2 AT 00000203 
00000929 00002995; 00002277 00002380 

EMPTYSET == INTEGER we DECLARED IN SEGMENT 2 AT 00000362 


*00000530* 00004497 


00001355 


00001585 


00001597 


00001605 


00001658 


000047214 


00001790 


00001748 
00001852 
00001940 
00002138 
00002358 
00002504 


00002312 
00003162 


00002030 
00002660 


00002522 


00004793 


00001785 
00001855 
00001968 
00002163 
00002394 


00002470 
00003202 


00002053 
00002664 


00002075 


®eeee.ee§ee8e%ee6eee8e6 ® © @@8&@he@hC<CiFmhtéC<C CD 


{ 
' 


ENDOFINPUT = 


ENDSY 
EOF. =* 
EQLSY 
EQUAL 
ERR oe 
ERRINX 
ERRLINE 


ERRNUM 
ERRNUM 


ERRNUM 
ERRNUM 


ERROR 


00002316 
00003475 


00002433 


00002447 


"" DECLARED IN SEGMENT 2 aT 00000202 


00002255 


00002256 


00002307 


pecLaRep IN SeGMENT 41 at 09003465 


me DECLARED IN SEGMENT 2 aT 
=~ DECLARED IN SEGMENT 2 AT 


00002138 00002223 
LABEL == 

00000884 00001065 
DEFINE 

00000913 00002254 

bagel 

00003469 
DEFINE 

00000477 00000997 
DEFINE 

00001026 00001030 


BOOLEAN ARRAY #e 


00000398 


wn INTRGER =e 
em INTEGER ew 


00000398 


e= INTEGER « 
ee INTEGER <= 


00002641 


00000402 
00000543 
00001006 
00004209 
00001229 
00001296 
00004336 
00004363 
00004429 
00001468 
00001483 
000015145 
0000156 
00001604 
00003640 
00003680 
00004718 
00001758 
00001783 
00001855 
0000188¢ 
00001987 
00002069 
00002110 
00002143 
00002223 
00002303 
00002358 
00002424 
00002474 
00002546 
00002678 
00002758 


*00000395* 00003682 
we INTEGER nu 
*#00000396*% 00000397 
we Real ARRAY 


00000408 


00000399 


00002643 


PROCEDURE =e 


00000506 
00000544 
00001013 
00004902 
00001238 
00004302 
00004339 
00001397 
00001432 
00001465 
00001484 
00001520 
00001563 
00001605 
00001644 
000041687 
00001724 
00001759 
00001790 
00001858 
00001882 
000019986 
00002070 
00002125 
00002168 
00002927 
00002312 
00002380 
00002430 
00002494 
00002580 
00002694 
00002760 


00004758 
00001034 


00004769 


00000196 
00004770 
00000856 


00002901 


DECLARED IN SEGMENT 2 AT 00000183 == 


00002337 


OccURS aT 00003472 


00003779 


DECLARED IN SEGMENT 2 AT 00000154 


00003684 


DECLARED IN SEGMENT 2 AT 00000132 


00000398 *00000400*%00000411* 00000884 
DECLARED IN SEGMFNy 2 aT 00000131 


00000440 


00000400 


DECLARED IN 


00000540 
00000553 
00001056 
00003203 
00001243 
00001303 
00003340 
00004398 
00004439 
00001466 
00001485 
00001524 
00001569 
00001607 
00001647 
00001694 
00001727 
00001761 
00001792 
00001864 
00001944 
00002003 
00002075 
00002126 
00002170 
00002253 
00002336 
00002384 
00002433 
00002496 
00002583 
00002702 
00002762 


00000464 


VALUE PARAMETER #2 
VALUE PARAMETER «2 


00000404 


VALUE PARAMETER oe 
VALUE PARAMETER) e= 


SEGMENT 2 


00000514 
00000555 
00001170 
00004205 
00003248 
00004307 
00001348 
00001409 
00001440 
00001467 
00001486 
00001533 
00004574 
00001608 
00004648 
00004695 
00004740 
00004762 
00004793 
00004869 
00004915 
00002030 
00002090 
00002130 
00002171 
00002250 
000023290 
00002365 
00002434 
00002505 
00002584 
00002715 
00002773 


AT 00000391 


000005438 
00000556 
00001178 
00001206 
00001258 
00001310 
00001349 
00004410 
00004445 
00001468 
00001490 
00001534 
00001576 
00001611 
00004649 
00001704 
00001743 
000014768 
00004795 
00001863 
00001916 
00002031 
00002091 
00002131 
00002172 
00002255 
00002327 
00002391 
00002437 
00002533 
00002595 
00002722 
00002779 


00000522 
00000561 
00001160 
00003209 
00001260 
00001311 
00001352 
00001416 
00001449 
00001469 
00001491 
00001535 
000014577 
00001614 
00004650 
00001702 
00004744 
00001770 
00004796 
00001864 
00001917 
00002033 
00002092 
00002132 
00002175 
00002267 
00002329 
00002412 
00002440 
000025144 
00002643 
00002725 
00002780 


00002342 


00003200 


00001065 


00000525 
00000564 
00001189 
00001216 
00001266 
00001312 
00001353 
00001417 
00001450 
000014714 
00001492 
00001547 
00001585 
00001619 
00001651 
00001708 
00001753 
00001774 
00004805 
00001865 
00001920 
00002038 
00002093 
00002433 
00002178 
00002269 
00002334 
00002413 
00002444 
00002515 
00002660 
00002727 
00002782 


OCCURS AT 00003524 


00002801 


00003228 


00003475 


DECLARED IN SEGMENT 2 aT 00000391 
DECLARED IN SEGMENT 2 AT 00000392 


DECLARED IN SEGMENT 36 AT 00002640 
DECLARED IN SEGMENT 36 AT 00002642 


00000527 
00000566 
00001193 
00001218 
00001268 
00001328 
00001355 
00001418 
000014452 
00001475 
00001493 
00001549 
00001592 
00001626 
00001658 
00004709 
00001754 
00001775 
00001844 
00001866 
00001939 
00002062 
00002094 
00002138 
00002179 
00002272 
00002338 
00002418 
00002447 
00002516 
00002664 
00002733 
00002791 


00002802 


00003528 


00000534 
00000976 
00001194 
000014226 
00001269 
00001329 
00004357 
00001420 
00001453 
00001476 
00001500 
00001550 
00001596 
00001636 
00001664 
00001710 
00001755 
00001779 
00001847 
00001867 
00001940 
00002064 
00002095 
00002139 
00002209 
00002292 
00002342 
00002419 
00002449 
0000252; 
00002668 
00002734 
00002796 


00000540 
00000986 
00001196 
00004227 
00001285 
00001330 
00001359 
00003427 
00001459 
00001477 
00001505 
00001554 
00001597 
00001637 
00001667 
00001711 
00001756 
00001780 
00004850 
00001868 
00001981 
00002067 
00002096 
00002140 
00002215 
00002297 
00002353 
00002420 
00002452 
00002538 
00002673 
00002437 
00002797 


00000542 
00000997 
00001197 
00001228 
00001293 
00004336 
00001360 
00001428 
00001463 
00001476 
00001510 
00001556 
00001600 
00001636 
00001677 
00001712 
00001757 
0000178) 
00001852 
00001869 
000019865 
00002068 
00002096 
00002144 
00002220 
00002299 
00002355 
00002423 
00002471 
00002542 
00002676 
00002753 
00002801 


ERRORM 


ERRORMESS2) oe 


ERRORS 
EXIT. 
EXIT 
EXIT 
EX1T 
EXIT 
EXP « 


EXPRES 


EXPRLE 
EXTERN 
EXTFIL 
EXTFIL 
poe 
Foe 
Fo oe 
Foose 
Fo 
FACTOR 
FIELOL 
FILEHA 
FILEID 


00002803 00002830 00002832 00002836 00002840 .00002843 
0000288% 00002885 00002886 00002896 00002900 00002904 
00002993 00003007 00003080 00003096 00003099 00003100 
00003127 00003334 00003139 000034377 00003179 00003180 
00003213 000039134 00003215 00003226 00003234 00003235 
00003266 00003267 000032682 00003302 00003304 00003307 
00003338 00003335 00003336 00003379 00003388 00003394 
0000350§ 00003505 00003506 00903507 00003508 00003519 
E5S1 = SWITCH FORMAT ** DECLARED IN SEGMENT 44 AT 00003574 
00003683 
SWITCH FORMAT © DECLARED IN SEGMENT 45 AT 00003637 
00003688 
e= FORMAT © DECLARED IN SEGMENT 3 AT 00000386 
00003684 
we LABEL ©" DECLARED IN SEGMENT 14 AT 000043283 =" OCCURS 
00001296 
v= LABEL ©°* DECLARED IN SEGMENT 26 AT 00002201 "=" OCCURS 
00002210 
ee LABEL ** DECLARED IN SEGMENT 28 Ay 80002265 -* QCCURS 
000022073 
we LABEL = DECLARED IN SEGMENT 30 AT 80009351 *= OCCURS 
00002359 
em LABEL ©*= DECLARED IN SEGMENT 37 AT 00002817 ©=# QCCURS 
00002853 
= INTEGER =" DECLARED IN SEGMENT 8 AT 90000877 
*00000983%%000009844#00000985* 00000967 
SfON "=" PROCEDURE 7" DECLARED IN SEGMENT 2 aT 00001732 
00001196 00001305 00001409 00003416 00001439 00001448 
00004575 00001593 000013601 00003809 00001845 000013850 
00001986 00002000 00002075 00002109 000021338 00002220 
00002430 00002444 
VEL == INTEGER #= DECLARED IN SEGMENT 2 AT 00003093 
#00004 3084%*0000 4 305%4#00001737% 00004738 *00004799% 00001800 *00002267 **00002353%#0000239 4% 
ALFILE ** DEFINE DECLARED IN SEGMENT 2 AT 00000069 
00000568 
E = BOOLEAN *# DECLARED IN SEGMENT 38 AT 00002943 
*00002997%*%00003003* 00003005 00003023 
ETAB =" REAL ARRAY °°" DECLARED IN SEGMENT 2 AT 00000150 
00003003 «00003497 
INTEGER DECLARED IN SEGMENT 14 aT 00001625 
*00001632« 00001633 00001640 00003643 00001649 
INTEGER DECLARED IN SEGMENT 15 AT 09001674 
*00004686% 00004687 *00004693* 00004695 00001704 
INTEGER DECLARED IN SEGMENT 16 AT 09004734 
*00003748* 00004750 00003763 00004765 00001777 
INTEGER DECLARED IN SEGMENT 18 AT 09001878 
*00001896* 00001897 00001899 00001905 00001906 
INTEGER DECLARED IN SEGMENT 19 AT 09001936 
*00001968% 00001970 00001973 00001974 00001975 00001976 
INTEGER *" DECLARED IN SEGMENT 21 at 00002021 
*00002032% 00002033 
e= PROCEDURE #" ODFCLARED 1N SEGMENT 2 AT 00001368 
00001559 00003620 00003627 00001655 
IST = @ROCEDURE e= DECLARED IN SEGMENT 2 AT 00002808 «= 
0000279§ 00002913 00002904 
NOLING ** PROCEDURE ©" DECLARED IN SEGMENT 2 AT 00002018 
0000204@ 00002570 00002571 00002572 00002573 00002575 
we INTEGER ** DECLARED IN SEGMENT 18 AT 90001878 


00002862 
00002902 
00003105 
00003164 
00003236 
00003314 
00003403 
00003524 


00002864 
00002906 
00003123 
000031487 
00003251 
00003327 
00003432 
00003686 


AT 00001360 


AT 00002236 


AT 00002279 


AT 00002364 


AT 00002920 


FORWARD 


00001462 
00001855 
00002224 


00001985 


FORWARD AT 00002614 


00002875 
00002909 
00003124 
00003198 
00003253 
00003326 
00003494 


AT 00001088 


00001475 
00001858 
00002267 


00001483 
00001864 
00002294 


00001992 00001993 


00002882 
00002915 
00003125 
00003202 
00003256 
00003329 
00003498 


00001490 
00001968 
00002353 


00001994 


00002883 
00002917 
00003126 
00003207 
00003258 
00003330 
00003500 


00001534 
00001980 
00002394 


00001995 


*0000188%« 00001902 00001903 00001904 00001925 00001926 00001927 
FILEIn *°" INTEGER °* DECLARED IN SEGMENT 19 aT 00001936 

*00001939" 00001948 00001949 00001950 00001964 00001965 00001966 00002006 
FILENAME == INTEGER @= pecbaRrp IN SEGMENT 2 AT 00000697 


#00004427% 00004428 #0000188 4 %*%00001939%800002006* 00002040 00002011 00002012 *00002030*« 0000203; 


00002035 00002036 
FILEPARAM = OFFINE = DECLARED IN SEGMENT 2 AT 00000700 
0000442F 0000188; 00001939 00002030 
FILES =e DEFINE *#* DECLARED IN SEGMENT 2 aT 00000099 
00001235 00001427 00001881 00001882 00001939 00001940 00002030 00002033 
00002848 00002972 00003120 
FILESY ** DEFINE ** DECLARED IN SEGMENT 2 AT 00000206 
00000934 00002749 
FiletaB °" Real ARRAY ©" DECLARED IN SEGMENT @ at 00000152 
*00002995%#00003040" 00003444 00003437 00003422 
FILETYPE © DEFINE == DECLARED IN SEGMENT 2 AT 00000100 
0000123F 00002764 00003038 00003039 00003049 00003054 00003056 
FIN]S e* BOOLEAN ==» VALVE PARAMETER = DECLARED IN SEGMENT 2 AT 00000633 
FINIS = BoOOLKAN *= VALVE PARAMETER *= DECLARED IN SEGMENT 2 AT 00000614 
O000061F 
FINIS =" BOOLEAN ** DECLARED IN SEGMENT 2 AT 00000863 
#0000100$%#00001005%#00001006% 00001007 00001012 *00001061*#*00001068* 00001069 
FIRST 7" BOOLEAN °* DECLARED IN SEGMENT 12 aT 00001371 
#00001426% 00001429 «00001458 00001463 «00001589ee00001591s 
FIRST ="" gOOLEAN ** pecbhaRED IN SEGMENT 29 aT 00002288 
*#00002306*#00002311% 
FIRST = BOOLEAN == DECLARED IN SEGMENT 36 AT 00002648 
*00002716**00009778* 
FIRST == BOOLEAN e# DECLARED IN SEGMENT 37 AT 00002815 
*00002829%*00002827 #0000289 3%*00002895% 
FIRST == INTEGER ©" VALUE PARAMETER ©&= DECLARED IN SEGMENT 2 AT 00002936 
FIRST ©" INTEGER © VALUE PARAMETER ™= DECLARED IN SEGMENT 2 AT 00002939 
0000293F 00002948 
FIRST "" BOOLEAN '* DECLARED IN SEGMENT 39 aT 00003071 
*00003091%*00003093« 
FIRSTADDR *" {NTEGER ** VALUE PARAMETER ©" DECLARED IN SEGMENT 2 aT 00002614 
een. s= INTEGER = VALUE PARAMETER = DECLARED IN SEGMENT 2 AT 00002616 
002615 
FIRSTADDR e# INTEGER == VALUE PARAMETER = DECLARED IN SEGMENT 2 AT 000028608 
FIRSTADDR © INTEGER == VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002840 
00002809 00002819 
FIRSTDIM == Be@oLEAN =" DECLARED IN SEGMENT 38 AT 00002943 
| &0000297F«*00002979™ 
FIRSTFILE =" INTEGER ©* DECLARED IN SEGMENT 40 AT 00003156 
#00003164% 00003413 00003425 
FIRSTLAB °* INTEGER ©" DECLARED IN SEGMENT @ AT 00000123 
00002536 00003358 «00003159 00003178 00003431 +#00003435~ 
FIRSTPARAM =" INTEGER °° pEcbLARED IN SEGMENT 39 aT 00003070 
#00003088" 00003443 
FIRSTSYM = INTEGER © DECLARED IN SEGMENT 11 AT 00003281 
*00004303* 00001307 
FIRSTSYM oo [NTEGER e= DECLARED IN SEGMENT 16 AT 00004734 
*00004741* 00001804 
FIRSTVAR ©= INTEGER © DECLARED IN SEGMENT p@ AT 00000341 
*00003248* 00003264 
FIRSTWITHSYM == DEFINE ©" DECLARED IN SEGMENT 2 AT 00000074 
00001169 00002503 


00002737 


00002759 


00002034 


00002763 


FLOATING 7" DEFINE ** DECLARED IN SEGMENT 2 aT 00000088 
00000509 00001554 00001633 00001640 00001687 00001692 00001761 00001897 00001899 00001906 00001970 
00003978 00001985 00001992 00002296 00002312 00002660 00002664 00002896 00003202 
FNAME * ALPHA =* DECLARED IN SEGMENT 36 aT 00002944 
*00002998% 00009999 00003003 00003043 00003015 00003028 
FNLENGTH ee INTEGER ewe DECLARED IN SEGMENT 36 AT 00002945 
#00002999% 00003000 00003033 00003045 00003028 
FNSTART =" INTEGER = DECLARED JIN SEGMENT 38@ AT 00002945 
*000029994% 00003013 00003015 00003028 
FORM = DEFINE == DECLARED IN SEGMENT 2 AT 90000082 
00000809 00000513 00000517 0000052; 00001193 00001197 00001218 00001235 00001240 00001246 00001303 
00001355 00001409 00001417 00003427 00001439 00001449 00001464 00001475 00001483 00001490 00001534 
0000155@ 00001896 00001597 00001604 00001605 00001632 00001657 00001658 00001686 000016914 00001720 
0000472~ 00003748 00003789 00004790 000013792 00001793 00004847 00004852 00001855 00003858 00001864 
00001684 00001882 00001896 00004939 00001940 00001968 00001981 00001987 00002030 00002032 00002059 
00002062 00002075 00002090 000023110 00002122 00002125 00002138 00002163 00002219 00002223 00002296 
00002312 00002336 00002445 00002433 00002447 00002494 00002660 00002664 00002722 00002737 00002759 
00002763 00002779 00002843 00002875 00002896 00002901 00002972 00002983 00002991 00003037 00003120 
0000320g 00003324 
FORMAL ** DEFINE °°" DECLARED IN SEGMENT 2 Ay 00000067 
00001287 00004323 00001393 00004554 00001894 00002086 00002205 00002312 00002410 00002559 00002660 
00002668 00002896 00003134 00003202 
FORMALPROC °* BOOLEAN "=" DECLARED IN SEGMENT 11 aT 00001282 
*00001287% 00001289 00001363 
FORMERFIRSTLAB =" INTEGER @* DECLARED IN SEGMENT 40 AT 00003156 


*00003156* 00003435 


FORSTAT = PROCEDURE == DECLARED IN SEGMENT 2 AT 00002395 
00002464 0000259; 

FORSY == DEFINE ©* DECLARED IN SEGMENT 2 aT 00000204 
00000914 00002894 

FORWARDDEF ©* DEFINE “= DECLARED IN SEGMENT 2 AT 00000068 
00003297 00003799 00003372 

FOUND ©" BOOLEAN ©* DECLARED IN SEGMENT 2 AT 00000419 


*00001229% 00004223 #00001319% 00001320 £00001345* 00001346 *00001389% 00001390 *00001427**00001554 «200001681 % 
*00001898% 00001891 *00001939%%00002030%«00002053*% 00002054 *00002082* 00002083 *00002116* 00002117 *00002159« 
00002160 00002202 #000023124%00002405" 00002406 «00002487 00002488 +#00002555% 00002556 *00002653« 00002654 
*000026604#00002664%#00002694e 00002695 «00002860 00002861 *00002868* 00002869 #00002896**00003109* 00003110 

*00003202%*00003279% 00003281 *00003292* 00003294 *00003318* 00003319 


FUN »* BOOLEAN = DFCLARED IN SEGMENT 40 aT 00003152 ; 
*00003289* 0000330; 00003302 00003309 00003314 00003332 00003337 00003381 
FUNC =" DEFINE ©" ODFCLARED IN SEGMENT 2 AT 00000063 
00000546 00001350 00001402 00002560 00002952 00002959 00003088 00003302 00003309 
FUNCSY © DEFINE ©" DECLARED IN SEGMENT 2 AZ 00000208 
0000094% 00003085 00003088 00003287 00003289 
Fi ee INTEGER ** DECLARED IN SEGMENT 2 AT 09000658 


*000011974%*0000 1 355#*0000 1597%%0000 1605 %«0000 1655%#00001721%400001790%#00001793%#00002075*#000021 38**0000222 3% 
600002316 4#000024334800002447 400002904" 


F2 "* INTEGER ** DECLARED IN SEGMENT 2 AT 00000658 
#00002191 «#0000 4 355% #0000 1597%#0000 1 605% 50000 1658**000017214*00001790#*00001793%#0000 20754000021 38%*0000222 3" 
#00002316%#000024 334400002847 4800002904 % 

GEN ©" DEFINE ©" DECLARED IN SEGMENT 2 AT 00000277 
00000328 00000339 00000343 00000344 00001807 00004880 00003900 00003904 00003902 00004903 00001904 
00001905 00001906 00001907 00004940 00001911 00003912 00001918 00001925 00001926 00001927 00001929 
000019386 00001948 00001949 00001950 00001958 00001959 00001960 00001964 00001965 00001966 00001969 
00001973 00001974 00001975 00001976 00001977 00001962 00001968 00001989 00001992 00001993 00001994 
00001995 00001996 00001999 0000200; 00002010 00002011 00002012 00002014 00002024 00002025 00002026 
0000202F 00002028 00002030 00002034 00002035 00002036 00002037 00002046 00002065 00002066 00002074 
00002078 00002088 00002099 00002106 00002113 00002128 00002129 00002137 00002144 00002351 00002152 


00002468 00002169 00002218 00002222 00002246 00002250 
00002298 00002095 00002309 00002337 00002330 00002333 
00002375 00002379 00002390 0000239; 00002401 00002429 
00002454 00002455 00002456 00002457 00002459 00002472 
00002964 00002965 00002966 00002967 00002971 00002974 
00002986 00002990 00003011 00003032 00003013 00003034 
00003028 00003029 00003031 00003034 00003036 00003040 
00003047 00003048 00003053 00003054 00003056 00003058 
00003185 00003188 00003337 00003338 00003342 00003347 
00003365 00003367 00003374 00003389 00003395 00003398 

00003423 00003439 
GENID ** DEFINE ©* pECLARED IN SEGMENT 2 aT 00000286 
00001908 00004903 00001904 00003925 00001926 00001927 
00004966 00002040 00002033 00002039 00002034 00002035 
0000231F 00002429 00002443 00009454 00002455 00002457 
0000301t 00003018 00003047 00003059 00003176 00003338 
00003417 00003422 
GENINT *" DEFINE ©" DECLARED IN SEGMENT 2 AT 00000297 
OOO0LBOF 00001900 00001905 00001906 00001907 00001910 
00001974 00001975 00001976 00001992 00001993 00001994 
00002088 00002099 00002128 00002129 00002344 00002465 
00002353 00002394 00002433 00002445 00002582 00002980 
00003056 
GENRE aL ©* PROCEDURE = DECLARED IN SEGMENT 2 AT 00000313 
00000348 00001807 00001900 00002088 00002365 00002218 
00002445 00002582 
GEQSY ©" DEFINE *= DECLARED IN SEGMENT 2 aT 00000198 
0000047§ 00000924 00001035 00003756 00004774 
GOTOSTAT = PROCEDURE = DECLARED JN SEGMENT 2 AT 00002464 
0000247§ 00002593 
GOTOSY =" DEFINE ** DECLARED IN SEGMENT 2 AT 00000205 
0000093% 00002593 
GTRSY =". DEFINE ** HECLARED IN SEGMENT 2 aT 00000198 
00000478 00000925 00001034 00001757 
HASH "" DEFINE =" DecbaRED IN SEGMENT 2 at 90000415 
00000506 00000510 00000544 00000518 00000522 00000525 
00000548 00000553 00000555 00000556 00000561 00000564 
00001427 00001554 00001883 00001890 00001939 00002030 
00002408 00002487 00002555 00002653 00002660 00002664 
00002868 00002896 00003096 00003109 00003198 00003202 
00003318 
HEADING "" DERI *" DECLARED IN SEGMENT 2 aT 90000239 
00000407 00000499 00000631 00000642 00000684 00001042 
HEADTEXT  e Real aRRay. DECLARED IN SEGMENT 2 aT 00000131 
QO00040F 0000049; 00000492 00000494 00000497 00000499 
00003475 00003527 00003690 
1 #* INTEGER =" DECLARED IN SEGMENT 19 AT 080001936 
#00007,95g9% 00001953 

I = INTEGER = DECLARED IN SEGMENT 33 AT 00002466 
*00002469%*00002470" 00002471 

I =" INTEGER ©" DECLARED IN SEGMENT 34 AT 00002480 
#00002506% 00002508 

I os" INTEGER *" DECLARED IN SEGMENT 35 AT 00002531 
*00002536% 00002537 00002538 00002539 

I °* INTEGER °°" DECLARED IN SEGMENT 37 at 00002814 


#00002849% 00002848 *00002904%*00002905* 00002906 
INTEGER @= DECLARED IN SEGMENT 38 AT 09002942 


00002258 
00002340 
00002431 
00002543 
00002975 
00003015 
00003041 
00003059 
00003349 
00003409 


00001946 
00002036 
00002472 
00003344 


00001911 
00001995 
00002169 
00002982 


00002222 


00000527 
00000566 
00002053 
00002673 
00003226 


00001065 


00000631 


00002266 
00002343 
00002432 
00002582 
00002976 
00003018 
00003042 
00003060 
00003352 
00003410 


00001949 
00002063 
00002543 
00003348 


00001912 
00001999 
00002218 
00003040 


00002267 


00000531 
00001222 
00002082 
00002694 
00003253 


00003475 


00000642 


00002267 
00002352 
00002443 
00002956 
00002979 
00003022 
00003044 
00003064 
00003354 
00003414 


00001950 
00002127 
00002964 
00003350 


00001959 
00002037 
00002222 
00003044 


00002353 


00000540 
00001319 
00002116 
00002832 
00003279 


00003527 
00000884 


c 


00002275 
00002353 
00002445 
00002959 
00002980 
00003026 
00003045 
00003167 
00003360 
00003416 


00001964 
00002228 
00002968 
00003363 


00001960 
00002065 
00002267 
00003042 


00002394 


00000542 
00001345 
00002159 
00002860 
00003292 


00003690 


00001042 


00002278 
0000236} 
00002446 
00002960 
00002982 
00003027 
00003046 
00003171 
00003362 
00003418 


00001965 
00002293 
00002976 
00003397 


00001973 
00002066 
00002317 
00003054 


00002434 


00000543 
00001389 
00002312 
00002862 
00003307 


00001065 


*00002948* 00002950 


DECLARED IN SEGMENT 39 AT 00003070 


#00003113* 00003716 *00003121* 00003122 €00003135* 00003136 


DECLARED IN SEGMENT 40 AT 00003149 


*00003178e 00003179 *00003264* 00003265 *00003276* 00003278 


00003363 «00003396 


00003422 *00003429*% 00003430 «0000343;4% 00003432 


DECLARED IN SEGMENT 
SEGMENT 2 


00000518 
00001350 
00004939 
00002490 
0000266, 
00003263 


IN SEGMENT 


00000934 
00004317 
00002080 
00002664 
00003196 


DECLARED JN SEGMENT 
DECLARED IN SEGMENT 2 AT 


I = INTEGER e# 
J = {NTEGER == 
00003358 00003352 «00003356 00003357 
1 o°" INTEGER om 
*0000368p% 00003683 *00003684% 00003685 
ICARD #®*» REAL ARRAY «= 
00000884 00003065 00003475 
IDCLASS = DEFINE #* DECLARED IN 
00000508 00000510 000005434 
00001328 00001323 00001348 
00001884 00001893 00001894 
00002312 00002409 00002410 
00002668 00002697 00002844 
00003202 00003203 00003232 
IDENTIFIER =" DEFINE =" DECLARED 
00000906 000009349 00000997 
00000953 00000955 00003220 
00001939 00002030 00002054 
00002588 00002653; 00002660 
00002896 00003094 00003107 
00003316 0000348; 00003489 
IFSTAT == PROCEDURE we 
00002286 000096587 
IFSY © DEFINE «# 
00000907 00002587 
ILIST == INTEGER ARRAY == 


INBRACKET =" BOOLEAN =* 


INDEX "" INTEGER fe 


DECLARED IN SEGMENT 43 AT 09003573 


AT 00000060 


00000522 
00001392 
00002030 
00002558 
00002871 
00003281 


9 AT 00000328 


00000524 
00001393 
00002056 
00002559 
00002676 
00003298 


2 AT 00000194 


00000940 
00001343 
00002114 
00002671 
00003202 


00000944 
00004387 
00002157 
00002689 
00003217 


2 AT 00002263 


00000202 


DECLARED IN SEGMENT 37 AT 00002812 
*00002833*% 00002848 *00002904% 00002905 
DECLARED IN SEGMENT 10 aT 00001162 
00001172 00001186 *00001189*% 00001215 


DFCLARED IN SEGMENT 37 


*00001216* 00001248 
aT 00002814 


AT 00003149 


600003296**«00003307* 
90000066 | 
00001397 00001398 


00003210 00003211 
aT 00000211 
00002252 00002359 
00003402 


DECLARED IN SEGMENT 2 aT 00000466 


DECLARED IN SEGMENT 2 AT 00000163 


00003410 *00003491% 


DECLARED IN SEGMENT 2 AT 00000162 


*00002856**00002862* 00002876 00002879 
INDEX 2 NTEGER = DECLARED IN SEGMENT 40 
#00003198* 00003042 *00003226% 00003933 
00003384 
INFO ** DEFINE = DECLARED IN SEGMENT 2 AT 
00000526 00000532 00001227 00001286 
0000284F 00002878 00002896 00003202 
INITIAL ©" pDERINE *" DECLARED IN SEGMENT 2 
00000470 00000474 00000472 00000473 
00003216 00003237 00003268 00003390 
INtTYTALIZE ** PROCEDURE #2 
000034748 
INPUTDECL == BOOLEAN == 
00001427 00001881 00001939 00002030 
INPUTFILE °°" INTEGER 2° 
*00000564*" 00001427 00001881 00001939 
INRECORD °* BOOLEAN #2 


*00001174% 00001188 


INStorBRacKeTS == BOOLEAN 
*000042764%00002496" 
INSY °°" DEFINE == 


00000912 00001746 
INSYMBO0G == PROCEDURE e# 


00001194 


00001199 


00002030 


DECLARED IN SEGMENT 10 aT 00001162 
00001215 *00001230«*00001257« 


e* opeclhaRed IN SEGMENT 2 aT 00001155 


00002504 
00001787 


DECLARED IN SEGMENT 2 At 00000199 


DECLARED IN SEGMENT 2 AT 00000875 em 


00003282 *00003343* 00003344 


00003397 


00000532 
00001395 
00002085 
00002560 
00002896 
00003304 


00000946 
00001427 
00002175 
00002754 
00003224 


*00001249" 


00003340 


00001554 
00003308 


00002381 


FORWARD AT 00000226 


00003398 «00003413» 


00000536 
00001402 
00002086 
00002561 
00002952 
00003302 


00000948 
00001551 
00002312 


00002823 
00003238 


00001266 


00003326 


00002312 
00003339 


00002386 


00000546 
00001427 
00002119 
00002656 
00002959 
00003309 


00000950 
00001554 
00002403 
00002828 
00003248 


00001274 


00003338 


00002660 


00002427 


00003345 
00003414 


00000560 
00001545 
00002204 
00002660 
00003112 
00003321 


00000954 
000016886, 
00002485 
00002658 
00003269 


00003339 


00002664 


00002444 


00003348 
00003417 


00000562 
000014554 
00002205 
00002664 
00003134 


00000952 
00001888 
00002553 
00002566 
00003290 


00003372 


00002674 


00003189 


00000388 00000387 00004074 0000448, 00004495 00003210 00003211 00004239 
00001298 00001333 0000135; 00004364 00004400 00003409 00001414 000014136 
00001439 00001445 00001448 00001454 00001459 00001462 00001470 00001475 
00001508 00001511 00001516 00001521 00001525 00001534 00001549 00001550 
00001575 00001578 00001582 00001586 00001591 00001601 00001612 00001633 
00001713 00001782 00001842 00001845 00001850 00001855 00001858 00001861 
00001914 00001915 00001936 00003924 00001939 00001945 00001961 00001980 
00002039 00002047 00002050 00002073 00002075 00002079 00002097 00002098 
00002134 00002138 00002142 00002143 00002153 00002156 00002171 00002174 
00002229 00002248 00002251 00002256 00002259 00002267 00002276 00002278 
00002305 00002311 00002332 00002335 00002345 00002353 00002362 00002377 
00002402 00002422 00002426 00002428 00002435 00002436 00002439 00002454 
00002484 00002514 00002515 00002546 00002522 00002523 00002544 00002547 
00002666 00002662 00002664 00002670 00002675 00002683 00002688 00002706 
00002718 00002733 00002735 0000275; 00002754 00002755 00002771 00002774 
00002824 00002827 00002834 00002837 00002641 00002857 00002863 00002865 
00002895 00002896 00002910 00002913 00002916 00003084 00003089 00003093 
00003148 00003441 00003173 00003183 00003489 00003194 00003199 00003902 
00003230 00003237 00003247 00003255 00003261 00003268 00003289 00003303 
00003369 00003375 00003390 00003403 00003477 00003480 00003484 00003488 


INTCONST ©* DEFINE =" peclLARED IN SEGMENT 2 aT 00000194 


I 
00000964 00003554 00002312 00002468 00002534 00002660 00002664 000027896 


INTEXPR =" DEFINE == DECLARED [N SEGMENT 47 AT 000018635 
0000165§ 00001858 0000186; 
INTTYPE == INTEGER = DECLARED IN SEGMENT 2 AT 00000161 


#00000503* 00000534 00001409 00004410 00001439 00004440 00001453 00001475 
00001498 00001494 00001534 00001535 00001554 00002312 00002660 00002664 


INXTYPE ©" DEWINE "" DECLARED IN SEGMENT 2 &T 00000095 
00001197 00002061 00002124 00002723 
IT "* INTEGER =" DeckARED IN SEGMENT 23 ay @0002045 
*00002068« 00002075 
1T = INTEGER ©= DECLARED IN SEGMENT 24 AT 800021405 
*0000242@* 00002138 
J o** INTEGER #* DECLARED IN SEGMEN] 38 AT 00002942 
*00003002% 00003003 
LABDEF = DEFINE = DECLARED IN SEGMENT 2 AT 00000122 
00002538 00002539 00003432 
LABELSY == DEFINE =" DECLARED IN SEGMENT 92 aT 00000207 : 
00000940 00003169 
LABFOUND ** LABEL °" DECLARED JN SEGMENT 35 AT 00002532 = OCCURS AT 00002543 
00002540 
LABTAB °°" REAL ARRAY "™=" DECLARED IN SEGMENT 2 AT 00000120 
00002478 00002537 00002538 «00002539 00003179 «00003182« 00003432 
LABTARTOP ©" INTEGER "© DECLARED IN SEGMENT 40 aT 00003155 
#00003159s 00003434 
LABVAL ** DEFINE *" DECLARED IN SEGMENT 2 AT 00000121 
000024790 00002537 00003479 
LAST @= INTEGER we VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002936 
LAST = INTEGER =» VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002939 
0000293#% 00002948 
LASTADDR == INTEGER © NAME PARAMETER ©" DECLARED IN SEGMENT 2 AT 00002614 
LASTADDR -** INTEGER = NAME PARAMETER *= DECLARED IN SEGMENT 2 AT 00002616 
LASTADDR ©** INTEGER #* NAME PARAMETER =" DECLARED IN SEGMENT 2 AT 00002808 
LASTADDR '* INTEGER © NAME PARAMETER °°" DECLARED IN SEGMENT 2 AT 00002810 
*00002852%%#00002856%«00002879ee 00002914" 
LASTAO *" REAL °" DFCLARED IN SEGMENT 2 ar 80000577 
00000626 #00000645+% 


0000123; 
00001419 
00001483 
00001554 
00001619 
00001871 
00001986 
00002106 
00002176 
00002294 
00002380 
00002453 
000025486 
00002710 
00002775 
00002684 
00003101 
00003216 
00003311 
00003501 


00003474 


00001479 
00002896 


00001264 
00001427 
00001490 
00001559 
00001652 
00001881 
00002004 
00002109 
00002480 
00002304 
00002387 
00002467 
00002595 
00002714 
00002794 
00002887 
00003106 
00003222 
000033815 
00003504 


00003202 


00004483 
00003202 


00003290 
00001433 
00001504 
00001570 
00001684 
00001887 
00002030 
00002113 
00002212 
00002303 
00002394 
00002473 
00002659 
00002715 
00002602 
00002890 
00003128 
00003227 
00003334 
00003509 


00001486 


LASTA1 em REAB == DFCLARED IN SEGMENT 2 AT 00000577 
00000626 *00000647* 
LASTBLOCK =© INTEGER = DECLARED IN SEGMENT 2 AT 00000578 
00000626 *00000651* 
LASTCHARPOS ** INTEGER ** DECLARED IN SEGMENT 2 AT 00000862 
#00001052" 00001057 
LASTLINE "* FORMAT °* DECLARED IN SEGMENT 3 aT 00000189 
00003548 
LASTREC *" INTEGER "= DECLARED IN SEGMENT 2 aT 00000181 
#0000279%* 00002792 00003163 00003379 00003429 *00003433**00003511* 
LASTSyY ** INTeGER "=" pecblaRed IN SEGMENT 19 AT 00001936 
*000014967% 00004993 
LASTWrTHSYM == DEFINE #* DECLARED IN SEGMENT 2 AT 00000075 
00001169 00002511 
LBRACKET = DEFINE ee DECLARED IN SEGMENT 2 AT 90000199 
00000476 00001182 00001186 00001263 00001580 00002715 
LEFTTYPE ©" INTEGER ©" DECLARED IN SEGMENT 26 at 00002200 
*00002207% 00002213 00002219 00002220 00002223 «00002228 
be@Sy "=" peFINE @* necbARED IN SEGMENT 2 aT 00000197 
O000047F 00000993 00003034 00003755 00003773 
LETTER = DEFINE e= DECLARED IN SEGMENT 2 AT 00000857 
00000887 0000089, 00000897 0000090, 00000961 
LEVEL = INTEGER ©" VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002936 
LEVEL ©* INTEGER e# VALUE PARAMETER © DECLARED IN SEGMENT 2 AT 00002939 
0000293F 00002947 00002950 00002998 
LEVEL1000 == INTEGER == DECLARED IN SEGMENT 38 AT 00002942 
800002947%*% 00002961 00002968 00002976 00003011 00003018 00003047 00003059 
LINE *" REAL ARRAY ©" DECLARED IN SEGMENT 2 AT 00000128 
00000407 00000480 00000884 00001065 00003475 00003527 
GINecNT *" INFEGER "" pEclLARED IN SEGMENT 2 aT 00000132 
+0000040P ##0000090946000008992%050006 30900000631 0420000068 1 ¥#000006424400000884%*4000010424#00001065"%00003475« 
*0000352%*#00003690« 
LINEFFED 7" BOOLEAN = VALUE PARAMETER @= DECLARED IN SEGMENT 2 aT 00001933 
LINEFFED «= B@OLEAN e# VALUE PARAMETER =e DECLARED IN SEGMENT 2 AT 000014934 
0000200% 
LINEPNT ©* POINTER == DECLARED IN SEGMENT 2 AT 00000129 
00000407 *00000480* 00000482 00000884 00001065 00002245 00002258 00002290 00002343 00002374 00002390 
00003478 00003527 
LINES *" FILE *" DECLARED IN SEGMENT 2 aT 00000034 
00000362 00000407 00000408 00000499 00000619 00000620 00000630 00000631 00000641 00000642 00000884 
00001042 00001065 00003475 00003525 00003527 00003529 00003530 00003552 00003681 00003683 00003685 
0000369@ 
LINESPERPAGE == DEFINE ©= DECLARED [N SEGMENT 2 AT 00000036 
0000040% 0000063, 00000642 0000088, 000014065 00003475 00003527 
LISTINX = INTEGER © DECLARED IN SEGMENT 37 AT 00002813 
*00002825* #000028 30%*00002834* 00002833 00002845 *00002856**00002902%#00002903" 00002904 00002906 
LISTLENGTH w= DEFINE =e DECLARED IN SEGMENT 2 AT 00000054 
00000148 00002812 00002830 00002902 00003250 
LISTOPTION ©" BOOLEAN == DECLARED IN SEGMENT 2 AT 00000457 
00000407 00000884 *00001043* 00001065 00003475 «00003476* 00003527 
LLIM ** INTEGER *" QECLARED IN SEGMENT 10 AT 00001160 
*#000011928*% 00001196 00001201 00003202 
LLIM "7" INTEGER °°" DECLARED IN SEGMENT 32 aT 00002397 
*00002417e 00002430 00002444 
LLIM ©" INTEGER @" pechAaRED IN SEGMENT 37 at 00002814 
*00002874%%00002888* 00002900 
LPAR = NerFINE ©" DECLARED IN SEGMENT 2 AT 00000199 


00000476 00001036 0000129; 00004409 00001415 00004427 00001439 00004446 00003460 00003475 00001483 
00001490 00001534 00001572 00001843 00001881 00001939 00002030 00002048 00002107 00002154 00002665 
00002909 00002911 00003081 00003485 

LPARFOUND =" BOOLEAN *" DECLARED IN SEGMENT 2 AT 00000698 


*00001427% 00001430 *00001861**00001939%%00002030% 


LSSSY "" DEFINE "" pecbhARED IN SEGMENT 2 aT 00000197 
00000476 00000922 00001030 00001032 00001746 00001754 
bt = INTEGER ©" DECLARED IN SEGMENT 2 aT 09000658 


#00001197%#00004 355 %%00001597 «40000 1605 %%0000 1658 4400001721 **00001790%*00001793%%00002075 #000021 38%*00002223« 
*00002316%*00002433%*00002447 400002904 % 


MAINTYPE = OEFINE oe DECLARED IN SEGMENT 2 AT 00000086 
00001192 00001355 00004597 00004605 000031658 00001721 00001790 00003793 00002075 00002338 00002223 
00002316 00002433 00002447 00002660 00002664 00002901 
MARGIN ** DEFINE © DECLARED IN SEGMENT 2 AT 00000368 
00002248 00002258 00002290 00002343 00002374 00002390 
MARGINCNT =" INTEGER ®* DECLARED IN SEGMENT 2 AT 00000130 
00000884 44000010654 #00002245 400002258 «400002290 %%00002343%%000023744%00002390%400003475x 
MAXADDR °* INTEGER "© DECLARED IN SEGMENT 37 aT 00002814 
00002913 00002914 
MAXCASES "* DEFINE °" DECLARED IN SEGMENT 2 aT 00000043 
00002286 00002319 00002324 00002326 00002329 
MAXCONSTS == DEFINE © DECLARED IN SEGMENT 2 AT 00000047 
0000011@ 00003706 
MAXEXTFILES e* DEFINE == DECLARED IN SEGMENT 2 AT 00000052 
00000150 00003496 00003498 
MAXFILES =* DEFINE = DECLARED IN SEGMENT 2 AT 00000053 
00000158 00002993 00003007 
MAXINT =" DEFINE ©" DECLARED IN SEGMENT 2 AT 00000037 
0000050§ 00000534 00000995 00002888 
MAXLABS =" DERINE ©* DECLARED IN SEGMENT 2 AT 00000044 
00000120 00003380 
MAXLEVEE ©" DEFINE = DECLARED IN SEGMENT 2 aT 00000042 
00000072 00002497 
MAXNAMES = DEFINE "= DECLARED IN SEGMENT 2 aT 00000041 
00000057 00000506 00000510 00000514 00000516 00000522 00000525 00000527 0000053: 00000540 00000542 
00000543 00000544 00000553 00000555 00000556 00000561 00000564 00000566 00001222 00001319 00001345 
00001389 00001427 00001554 0000168, 00001690 00001939 00002030 00002053 00002082 00002116 00002459 
00002312 00002405 00002487 00002555 00002653 00002660 00002664 00002673 00002694 00002832 00002860 
00002862 00002868 00002896 00003096 00003109 00003198 00003202 00003226 00003253 00003279 00003292 
00003307 00003318 00003384 00003430 
MAXPARAMS ©" pEFINE ©" DECLARED IN SEGMENT @ AT 00000045 
OO00010F 00003080 00003099 
MAXPNTRS = DEFINE = PECLARED IN SEGMENT 2 aT 00000054 
00000148 00002702 
MAXSYMS = DEFINE *= DECLARED IN SEGMENT 2 aT 00000050 
0000014% 00001470 00001180 00003189 00001194 00001196 00001201 00001202 00001203 00001205 00001206 
00001216 00001226 00001227 00004238 00001243 00001248 00001250 00001266 00001268 00003269 00001285 
00001293 00001302 00001303 00004307 00001310 00001311 00001312 00001328 00001329 00001330 00001349 
0000135% 00001360 00001397 00001398 00001409 00001416 00001428 00001429 00001439 00001445 00001453 
00001459 00001463 00001465 00001466 00001467 00001468 00001475 00001477 00001478 00001483 00001484 
00001485 00001490 00001491 00001492 00001500 00001505 00001510 00001515 00001520 00001524 00001533 
00001534 00001554 00001558 00001563 00001569 00001574 00001577 00001585 00001592 00001600 00001607 
00001608 00001626 00001636 00001637 00001641 00001647 00001648 00001651 00001667 00001677 00001680 
00001693 00001695 00001701 00001702 00001708 00001709 00001710 00001714 00001727 00001740 00001743 
00001749 00001753 00001754 00001755 00001756 00001757 00001758 00001759 00001762 00001768 00001770 
00001778 00001779 00001780 00001783 00001795 00001796 00001805 00001841 00001850 00001855 00001858 
00001861 00001862 00001863 00002220 00002267 00002353 00002391 00002430 00002444 00002496 


MAXTABLES °° pFFINE #* DECLARED IN SEGMENT 2 AT 00000040 
00000057 00000436 00003543 
MAXTEMPS == DEFINE = DECLARED IN SEGMENT 2 AT 00000048 
00002292 00002434 00003396 00003398 
MAXTYPES = DEFINE ee DECLARED IN SEGMENT 2 AT 00000046 
00000084 00001614 00002660 00002664 00002668 00002691 00002727 00002762 00002782 00002797 
MAXWITHSYMS °*" DEFINE =" pEcLARED IN SEGMENT 2 aT 00000049 
00000148 00002505 
MIDDLe == EFYNE *" DECLARED IN SEGMENT 2 AF 00000211 
000003682g@ 00000470 00000474 00000472 00000473 
MINUS =" DEFINE =" pECLARED IN SEGMENT 2 aT 00000497 
00000476 00004554 00001678 00001695 00003710 00002312 00002660 00002664 0000289; 00002896 00003202 
MODE = INTEGER = DECLARED IN SEGMENT 14 AT 00001625 
*00001628%*00001635%**00001645* 00001646 00001666 00001668 
MODE = INTEGER =" DECLARED IN SEGMENT 15 AT 00004674 
#00001684%«#00001693%*00001699% 00001700 *00001706* 00001707 00001726 00001728 
MODSY ** DEFINE ** DECLARED IN SEGMENT 2 aT 00000196 
00000918 00001629 
MULOPTR ©" INTEGER 7" DECLARED IN SEGMENT 14 aT 00001625 
*00001631% 00001661 00001663 
N *" INTEGER *" DECLARED IN SEGMENT 36 aT 080002647 
*00002667*% 00002674 *00002675* 00002682 
N ose INTEGER # VALUE PARAMETER © DECLARED IN SEGMENT 42 AT 00003542 
N we INTEGER =© VALUE PARAMETER = DECLARED IN SEGMENT 42 AT 00003543 
00003544 00003545 
NABS ** INTEGER ©" DECLARED IN SEGMENT 2 al 00000295 
&00001807% «00001900 «400001905 %%00001906%400001907%%00001910%*00001911%*00001912%«00001959%«000019604«00001973" 
*00001978**00001975%#00001976%*00001992%400001993%«00001994%*00001995%*00001999%*000020 37**00002065%*00002066% 
*0000 2088 400002099 * 4000021 284400002429 44000021 44%%000021656400002169%4000022184«00002222%%00002267 %«00002317" 
*00002353 4400002394 «400002431 «#0000 2445 440000258 2%%00002980 *400002982440000 3040 %%0000 3041 %*00003042%400003054™ 
*00003056* 
NAM ew INTEGER @" DFCLARED IN SEGMENT 38 aT 00002942 
*00002956* 00002964 00002968 00002976 00002995 00002998 00003010 00003011 00003018 00003047 00003059 
NAMELENGTH = DEFINE == OFCLARED IN SEGMENT 2 AT 00000058 
00000586 00000608 00000646 00000648 00000649 00000903 00002999 
NAMETAB == DEFINE == DECLARED IN SEGMENT 2 AT 00000078 
000014319 00004345 00001389 00004427 00004554 00001881 00001890 00001939 00002030 00002053 00002082 
00002116 00002159 00002312 00002405 00002487 00002500 00002555 00002653 00002660 00002664 00002694 
00002860 00002868 00002896 00003109 00003202 00003318 
NaMeTaBt se Real aRRay =" DpechaRep IN SEGMENT 2 aT 00000057 
#00000506 #000005 404#000005 4 4#*000005 18 %%00000522%%000005254*00000527 ¥#00000531%#00000540**00000542%400000543% 
#00000549*#*0000055 3*#00000555%#00000556%*00000561**#00000564#*00000566*% 00001222 00003319 00001345 00001389 
0000142Z% 00001554 00001881 00001890 00001939 00002030 00002053 00002082 00002416 00002159 00002312 
00002403 00002487 00002555 00002653 00002660 00002664 #00002673*% 00002694 *00002832*% 00002860 *00002862« 
00002868 00002896 00002998 *00003096* 00003109 *£00003198* 00003202 *00003226%*00003253% 00003279 00003292 
#0000330F%* 00003318 00003383 00003430 
NAMETAB2 = REAL ARRAY = DECLARED IN SEGMENT 2 AT 00000057 
*000005064#000005 10440000054 4%4000005 18 *400000522%*00000525 400000527 ##00000531%#00000540##00000542*40000054 3" 
#00000548 «#0000055 3%*000005554#00000556%«0000056 1 **00000564%400000566% 00003222 00001319 00004345 00001389 
0000142f 00001554 00001881 00001899 00001939 00002030 00002053 00002082 00002116 00002159 00002312 
00002408 00002487 00002555 00002653 00002660 00002664 #00002673% 00002694 «00002832« 00002660 «00002862 
00002868 00002896 *00003096% 00003109 «00003198 00003202 *00003226%*#00003253*% 00003279 00003292 «00003307 
00003318 
NAMETAB3 s= REAL ARRAY ©" DECLARED IN SEGMENT 2 AT 00000057 
*0000050F *#0000051 1**00000515%*00000519*#00000523**00000525**00000527 **00000533**00000540**00000842**00000543* 
*00000544%*#*0000055 3*#00000555*#*00000556**00000561%**00000565**00000567% 00001225 00001319 00001345 00001389 
00001427 00001554 00001881 00001690 00001939 00002030 00002053 00002082 00002116 00002159 00002312 


cy 


0000240§ 00002487 00002555 
*00002879*% 00002896 00002950 
*00003299%%00003310" 00003316 


00002653 


00002660 00002664 #00002674* 00002694 *00002848* 00002860 


00003109 *00003136* 00003202 *00003212**00003233%#00003265* 00003280 


*00003326* 00003339 «00003372 


NAME1 ©= REAL = VALUE PARAMETER © DECLARED IN SEGMENT 2 AT 
NAME! = REAL w= VALUE PARAMETER = DECLARED IN SEGMENT 2 AT 
00000229 | 
NAME1 = REAL = VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 
NAMEL = REAL = VALUE PARAMETER "=" DECLARED IN SEGMENT 2 AT 
00000584 00000586 *00000587% 00000594 
NAME2 ©" REAL = VALUE PARAMETER "== DECLARED IN SEGMENT 2 AT 
NAME2 == REAL © VALUE PARAMETER @= DECLARED IN SEGMENT 2 AT 
00000229 
NAME2 = REAL =&* VALUE PARAMETER "= DECLARED IN SEGMENT 2 AT 
NAME2 © REAL @= VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 
00000581 *00000588* 00000591 
NAMTAB 7" INTEGER °" DECLARED IN SEGMENT 38 aT 00002942 
*#00002958«% 00002951 00002952 00002959 
NCASELABS *" INTEGER "=" DECLARED IN SEGMENT 29 aT 00002287 
#000023186« 00002319 00002329 
NDIGITS ©" DEFINE ©* DECLARED IN SEGMENT 2 AT 00000235 
00000399 00000407 00000499 00000634 00000642 00000884 
00002348 00002374 00002390 00003475 00003527 00003690 
NEGATIVE ©= BQOLEAN e DECLARED IN SEGMENT 2 AT 00000729 


#00004554**00002312**00002660**00002664%#00002896**00003202" 


00000228 
00000230 


00000580 
00000582 


00000228 
00000230 


00000560 
00000582 


00001042 


00000527 


00004065 


00000531 


00000561 00000564 00000566 00002673 


== OccURS aT 00002378 


NEGEXp == BOOLEAN ** DECLARED IN SEGMENT 8 AT 00000878 
#0000098%« 00000985 
NEQSY "" DEFINE °" DECLARED IN SEGMENT 2 aT 00000198 
00000477 00000926 00001033 00001759 00001769 00001780 
NEWCARD "* DEFINE "" DECLARED IN SEGMENT 2 at 00000263 
00000884 00001065 00003475 
NEWDISP = PROCEDURE == DECLARED IN SEGMENT 2 AT 00009448 
00002184 00002576 00002578 
NEWNAME == DEFINE ©= DECLARED IN SEGMENT 2 aT 00000449 
00000506 00000510 00000514 00000518 00000522 00000525 
00000544 00000553 00000555 00000556 
00003198 00003226 00003253 00003307 
NEWPARAM 7" DEFINE ** DECLARED IN SEGMENT 39 AT 00003073 
00003080 00003099 
NeEWTRy f= LABEL ©" DECLARED IN SEGMENT 31 aT 00002371 
00002380 00002384 00002386 
NEWTYPE = DEFINE = DECLARED IN SEGMENT 2 aT 0000035, 
00007618 00002660 00002664 00002668 00002693 000097027 
NEWXREF == PROCEDURE #8 DECLARED IN SEGMENT 2 AT 00000580 == 
00000506 00000510 00000534 00000518 00000522 00000525 
00000544 00000553 00000555 00000556 00000561 00000564 
00001389 00001427 00001554 00001881 00001890 00001939 
00002312 00002405 00002487 00002555 00002653 00002660 
00002862 00002868 00002896 00003096 00003109 00003198 
00003307 00003318 
NEXTCHAR |= DEFINE == DECLARED JN SEGMENT 2 AT 00000865 
0000088$ 00000890 00000893 00000899 0000090, 00000965 
0000098§ 00000984 00001002 00001005 00001011 00001025 
00001038 00001041 00001054 00001059 00001066 00001067 
NILSY @** DEFINE ** HECLARED IN SEGMENT 2 aT 00000205 
00000917 00001567 
NILTYPE ==" INTEGER @= DECLARED IN SEGMENT 2 AT 00000161 


— 600000529" 00004497 


00001355 


000014569 


00001597 


00004605 


00002762 


FORWARD AT 


00000527 
00000566 
00002030 
00002664 
00003202 


00000966 
00001027 
00001070 


00001658 


00009789 
00000228 
00000531 
00000592 
00002053 
00002673 
00003226 


00000969 
00001029 


000017214 


00002945 


00000540 
00002832 


00002797 


00000540 
00001222 
00002082 
00002694 
00003253 


00000973 
00001034 


00001790 


00002258 


00000542 
00002862 


00000542 
00001319 
00002116 
00002832 
00003279 


00000980 
00001033 


00004793 


00002868 
00003293 


00002290 


00000543 
00003096 


00000543 
00001345 
00002159 
00002860 
00003292 


00000984 
00001035 


00002075 


00002138 00002223 00002316 00002433 00002447 00002904 
NL 2 INTEGER "= DECLARED IN SEGMENT 2 AT 08000578 
*00000586*% 00000587 00000588 
NOALIST **" FORMAT ©" DECLARED IN SEGMENT 3 aT 00000188 
00001050 
NOERRORS "9 FORMAT "= HECLARED IN SEGMENT 3 aT 00000185 
00003552 
NOTSY "" DEFINE =" DECLARED IN SEGMENT 2 AT 00000195 
00000949 00001556 
NPARS #e INTEGER =* DECLARED IN SEGMENT 14 AT 0000128, 
*00001288**00001989* 00001296 *00001356* 00001363 
NSIZE =" INTEBER © DECLARED IN SEGMENT 2 AT 00000295 
*00001807 #%00001900%#00001905##00001906%#00001907 **00001910%#00001911%*00001912%#00001959%*00001960 «00001973 
#0000197 4%#0000 1975440000197 6%400001992%«00001993##000019944%00001995**00001999%#00002037%*00002065**00002066s 
#00002088 «400002099 4400002128 *#000021 29% 400002144 %400002165%*00002169%#00002218%%00002222%*000022674%%00002317% 
*00002354**00002394 **00002431 ##00002445%%00002582%*00002980#*00002962*#00003040*%0000304 1 **00003042**00003054* 
*00003056« 
NUMBEGINS e= INTEGER ee DECLARED IN SEGMENT 2 AT 00000173 
*00002245« 
NUMBER = DEFINE ©» DECLARED IN SEGMENT 2 AT 00000212 
00001279 00001364 00001386 00001399 00001562 00001585 00001635 00001693 
NUMBLOCKS *" INTEGER ==" DECLARED IN SEGMENT 2 AT 00000137 


#00002793%%00003380" 
NUMCASES "" INTEGER =" DECLARED IN SEGMENT 2B AT 00000174 
#00002290" 


NUMCONSTS *" INTEGER "™" DECLARED IN SEGMENT 2 AT 00000117 
*0000053%* 00003160 00003206 *00003207%%00003208* 00003209 00003210 *00003436* 
NUMERIC fs DEFINE we oFCLARED IN SEGMENT 2 aT 00000083 
0000050g 00004497 00001355 00001409 00004417 00004439 00004475 00001483 00003490 00004534 00004554 
00001592 00001605 00001633 00001657 00001658 00001687 00001692 00001720 0000172: 00003789 00001790 
00001793 00001855 000018568 0000486, 00001897 00001905 00001970 00001973 0000198; 00001987 00002075 
00002138 00002223 00002342 00002316 00002433 00002447 00002660 00002664 00002896 00002901 00003202 
NUMERRS =" INTEGER "= DECLARED JIN SEGMENT 2 AT 00000027 
#00000394% 00003531 000036861 
NUMEXTFILES ©" INTEGER °* DECLARED IN SEGMENT 2 AT 00000151 
00003008 *00003495* 00003496 00003497 00003498 
NUMFILES "=" INTEGER ©" DECLARED IN SEGMENT ® AT 00000153 
00002993 *00002994% 00002995 00003007 «00003009* 00003010 00003164 00003413 «*00003425« 
NUMFORWARDS °" INTEGER ©" DECLARED IN SEGMENT 40 aT 00003149 
*00003300«#00003373% 00003394 . 
NUMLABS =" INTEGER #e DECLARED IN SEGMENT 2 AT 00000123 
00002469 00002536 00003159 00003178 #00003180#*00003181* 00003382 00003431 *00003434* 
NUMPARAMS «= INTEGER == DECLARED IN SEGMENT 2 AT 00000133 
#0000308@* 00003094 #00003099* 00003115 00003321 00003135 00003143 00003162 00003308 *00003438x 
NUMPNTRS * INTEGER © DECLARED IN SEGMENT 2 AT 00000349 
#0000270R% 00002703 00002704 00003273 00003276 #00003284« 
NUMPNTRSINWITH ©" DEFINE "" DECLARED IN SEGMENT 2 AT 00000076 
00001173 00002502 
NUMPO[NTERS *" INTEGER °* DECLARED IN SEGMENT 2 AT 00001156 
*00001173%#00001256« 00001267 *00001270* 00002502 *00002516« 
NUMREPS ©" INTEGER ** HFCLARED IN SEGMENT 2 aT 00000175 
*00002373% 
NUMSYMS = INTEGER =e DECLARED IN SEGMENT 2 AT 00000343 
00001165 #00003 470%*00001 180%*00004 189%8#00004 194%#00001 196*#0000120) #00004 202400001 203%#00001205%%00001206% 
#00001218**00001926**00001227%#00001236* 00001242 #00001243**00001248*% 00001250 00001252 *00001256**00001266" 
#00001268 #00001 269%#000012854%00001293%%00001 302440000130 3%*00001307%%00001 310%%00001311%#00001312%*00001328% 
#0000132 94#00001330%#00001349%#00001357%%00001 360%*00001397**00001398%*00001409%*00001416%*00001428 "00001429" 


#00004439%*0000 1 445%*0000 1453#%0000 4459440000 1 463%#0000 1465%#0000 1466%40000 1 467%%«00001468%800001475%%00001477% 
*00001478%%000014834#0000 1484 %«0000 1485 %%000014904%00001491%*00001492%%00001500%#00001505%400001510%«00001515* 
*00001520**00001524%*00001533%#00001534%500001554"400001555«*00001563##00001569%#00001574%«"00001577«*00001585* 
*00001592%*0000 1 600%#0000 1607*#0000 4 60840000 1626%%00001636**00001637*#00001641%*0000 1647%*00001648%«00001654* 
*0000 1667 #40000 1677 **0000 1680 *40000 1 694460000 16954 800001701 #00001 702%«00001 708 %%00001709%400001710%*«00001714% 
*00001727%%00001740% 00001741 *00001743%%00001 744%400001 753%*00001754*00001 755%**00001756%*00001757%*00001 758% 
#00001759%#00001762%400001768%«000017704400001775%«00001779%#00001780%#00001783%*00001795%*00001 79600001805" 
#00001807 «#0000 1841 ##0000 185040000 1855 *%0000 1858440000 1861 #0000 1862%40000 1863%*0000 1900400002088 ««00002165% 
*00002218%**000022920%*00002222%400002267%8 0000235 3%#0000239 1##00002430%*00002431%%*00002444%40000246454%00002496" 
00002505 00002506 *00002517#*000025890 
NUMTEMPS "=" INTEGER =" DECLARED IN SEGMENT 2 AT 00000176 
*00002299%*00002344%4%00002434% 00002443 00002457 «00002460 
NUMTYPES "* INTEGER ©" DECLARED IN SEGMENT 2 AT 00000104 
*00000528 «400000558 ««000016144400002669%% 00002664 4% 00002668 %*00002691%#000027 27 ##00002762%*00002782%* 00002797" 
00003164 *#00003437* 
NUMXREF o-= INFEGER == DECLARED IN SEGMENT 2 AT 00000437 
00000628 *00000632%*000006 36%**0000064 3* 
NWITHSYmMS ee INTEGER == DECLARED IN SEGMENT 2 AT 00000145 


00002482 00002503 00002505 00002508 £00002509* 00002511 *00002525* 
OFSY = DEFINE ©" DECLARED IN SEGMENT 2 AT 90000203 
00000911 00002298 00002300 00002301 00002734 00002752 00002772 00002882 00002883 00002884 
00002886 00002887 
ORSY °" DEFINE °°" DECLARED IN SEGMENT 2 AT 00000197 
00000918 00001689 00001702 
OUTPUTDECL == BOOLEAN =" DECLARED IN SEGMENT 2 aT 00000163 


00001427 
OUTPUTFILE n 


00001884 00004939 00002030 #00003492 


INTEGER #* DECLARED IN SEGMENT 2 AT 00000362 


*00000567*% 00001427 00001881 00001939 00002030 
OVERFLOW = LABEL ** DECLARED IN SEGMENT 86 AT 00000879 =« 


00000994 
P == INTEGER 


DECLARED IN SEGMENT 11 AT 09001281 


#00001266**00001288*#00001297« 


P #= POINTER 


DECLARED IN SEGMENT 19 AT 08001937 


*00001954%*00001956«™ 
PACK "" PROCEDURE "=" DECLARED IN SEGMENT 2 aft 00002043 


00002100 


00002579 


PacKEp "" gOObEAN °* DECLARED IN SEGMENT 2 aT 00002612 
#00002656«u«00002710% 
PACKEnS¥ °* OEFINE "= DECLARED IN SEGMENT 2 AT 00000209 


00000944 


PAGECNT © INTE 


00002710 


GER ©» DECLARED JN SEGMENT 2 AT 00000432 


OCCURS AT 00000997 


*00000407%#00000499%* 00000634 **00000649%h0000088 40000 104 2%*0000 1 065%**00003475**0000 3527%*0000 3690" 


PARAM = INTEGER 


e= DECLARED IN SEGMENT 14 AT 00001281 


*0000129%* 00004298 00001299 00001315 00001325 00001348 
we VALUE PARAMETER ®*=* DECLARED IN SEGMENT 2 AT 00002936 
ee VALUE PARAMETER "= DECLARED IN SEGMENT 2 AT 00002940 
00002981 00002991 00003005 00003020 00003051 00003055 
PARAMETER °" BEFINE =" DECLARED IN SEGMENT 42 AT 00001374 
00001439 00001475 00001483 00001490 00001534 
PROcrouRE "* OFCLARED IN SEGMENT 2 AT 00003068 


PARAM = BOOLEAN 
PARAM == BOOLEAN 


0000293F 


00001409 


PARAMFTERLIsT == 


00003344 


00003311 


PARAMFILE |= DEFINE e= DECLARED IN SEGMENT 2 AT 00000442 


00001328 


00003422 00003345 


PARAMKIND *= DEFINE #* DECLARED IN SEGMENT 2 AT 00000109 


00001299 
PARAMLEVEL == 
00003098 


00001315 00001348 00003097 00003357 


DEFINE °* DECLARED IN SEGMENT 2 AT 00000110 


PARAMNAME ** BEFINE ©" DECLARED IN SEGMENT @ AT 00000108 
00003136 00003344 00003348 00003350 00003363 
PARAMTAB "=" Real ARRAY *" DECLARED IN SEGMENT 2 AT 00000107 
00001288 00001297 *00003099**00003116*#00003122* 00003136 *00003143* 00003339 00003344 
00003350 00003357 00003363 00003366 
PARAMTABTOP == {INTEGER =" DECLARED IN SEGMENT 40 AT 00003455 
*000031469* 00003438 
PARAMTYPE == DEFINE = DECLARED IN SEGMENT pg AT 00000414 
00001298 00003416 
PASCALGOL °* EILE = DECLARED IN SEGMENT 2 AT 00000035 
00000361 00001049 00001050 00003461 00003470 00003548 00003549 
PascRUN "" FIle "" peEcbLARED IN SEGMENT 41 ay 00003463 
00003469 
PASSPARAMS = PROCEDURE °= DECLARED IN SEGMENT 2 aT 00001279 
00001365 00004544 00001547 0000258, 
PLUS = DEFINE = DECLARED IN SEGMENT 2 AT 00000396 
0000047§ 00001554 00001678 00004680 00001689 00001694 00001709 00002312 00002660 
00002896 00003202 
PNTRTABL = REAL ARRAY = DECLARED IN SEGMENT 2 AT 00000148 
*0000270$" 00003078 
PNTIRTABR == REAL ARRAY ©* DECLARED IN SEGMENT 2 AT 00000148 
*00002703% 00003978 
PNTRTAB3 =" REAL ARRAY ©" DECLARED IN SEGMENT 2 AT 00000148 
*00002704% 00003282 
POINTERS °* DEFINE ** DECLARED IN SEGMENT 2 aT 00000092 
0000119f 00001246 00001355 00001597 00001605 00001658 00001721 00001777 00001790 
00002138 00002163 00002223 00002316 00002433 00002447 00002691 00002901 00003324 
POINTTYPE = DEFINE == peclbaRep IN SEGMENT @ aT 00000093 
0000119F 00004259 00001355 00004597 00004605 00001658 00001721 00003790 00001793 
00002166 00002923 00002336 00002433 00002447 00002698 00002903 00003282 
POWER =" INTEGER ** DECLARED IN SEGMENT 4 AT 00000317 
*00000338**00000333* 00000339 *00000340* 00000341 
PREAD "=" PROCEDURE ** DECLARED IN SEGMENT 2 AT 00001875 
00001930 00002568 00002569 
PRINTERRORS ** PROCEDURE ** DECLARED IN SEGMENT 2 AT 00000405 
00000412 00000884 00001065 00003475 00003528 
PRINTLINE =" BpEFINE ©* DECLARED IN SEGMENT 2@ AT 00000249 
0000040F 00000884 00001065 00003475 00003527 
PRINTyREF = PROCEDURE ©" DECLARED IN SEGMENT 2 AT 00000613 
00000654 00003694 
PROC ee DEFINE = DECLARED IN SEGMENT 2 AT 00000064 
00000536 00001545 00002561 00003088 00003105 00003131 00003294 00003301 00003309 
PROCNUM ©" INTEGER *= VALUE PARAMETER ©" DECLARED IN SEGMENT 2 AT 00002018 
PROCNUM °* INTEGER "= VALUE PARAMETER "" DECLARED IN SEGMENT 2 aT 00002019 
00002022 00002033 
PROCSY °" DEFINE "* DECLARED IN SEGMENT 2 AT 00000208 
00000949 00003085 00003287 00003404 
PROGNAME @" ALPHA "" DECLARED IN SEGMENT 2 aT 00003455 
*00003483*% 00003554 
PROGNAMELENGTH = INTEGER #©* DFCLARED IN SEGMENT 2 AT 00003454 
#0000348%* 00003854 
PROGRAMSY = DEFINE e# DECLARED IN SEGMENT 2 AT 00000208 
00000949 00003478 
PTYPE w= INTEGER © DECLARED IN SEGMENT 14 AT 00001281 
*00001298* 00001301 00001310 00001313 00001355 
PUTCONST °* DEFINE = DECLARED IN SEGMENT 2 aT 00001110 
00001196 00001201 00001202 00001205 00001227 00001310 00001311 00001312 00001397 


00003345 


00002664 


00001793 


00002075 


00001398 


00003346 


0000289; 


00002075 


00002136 


00001416 


PUTDUMMY = DEF] 


PUTID 
PUTSYm 


PUTTEXT 


P1 
QUOTES 


RBRACKE 


REALCONST se 


REALOVERFLOW ee 


REALTYPE #2 


REALVAR 


REC I NX 
RECORD 


RECORDSY = OF 


RECSIZE 


ee BOOLEAN se 


m= INTEGER ee 
*00002799* 00002793 
ee DEFINE 


00001218 
00000383 


e* DECLARED IN SEGMENT 2 AT 00000097 


00002494 


INE =e 


00000943 


*- INTEGER &= 


00002795 
000027986 
00002789 


00002798 


00004465 00001466 00001467 00004478 00001485 00001492 
00002220 00002430 00002444 
NE ee DECLARED JN SEGMENT 2 AT 00001116 
0000130 00004558 00004626 00004654 00003677 00004744 
00002353 00002394 
“* DEFINE © * DECLARED IN SEGMENT 2 aT 00001121 
00001168 00001285 00001328 00004329 00001330 00001349 
w= DEFINE ** DECLARED IN SEGMENT 2 AT 00001104 
00001189 00001196 000012031 00004202 00001203 00001205 
00001266 00001293 00001307 00001310 00001311 00001312 
00001416 00001439 00001445 00001453 00001463 00001465 
00001478 00004483 00004484 00004485 00003490 00004494 
00001600 00001607 00001636 00003637 00001647 00003667 
00001727 00001753 00001754 00003755 00001756 00001757 
00001775 00001779 00001780 00001795 00001796 00001805 
0000386g@ 00003863 00002220 00002267 00002353 00002391 
= OFFINE *" pECLARED IN SEGMENT 2 AT 00001095 
000049478 00004480 00004489 00004194 00004396 00004204 
00001226 00001227 00001238 00001243 00001248 00001266 
00001303 000014307 00001310 0000131, 00001312 000014328 
00001397 00001398 00001409 00001416 00001428 00001429 
00001465 00001466 00001467 00001468 00001475 00001477 
0000449, 00001492 00001500 00003505 00003510 00003545 
00001554 00004558 00003563 00003569 00001574 00004577 
00001626 00001636 00001637 0000464, 00004647 00004648 
00001695 000013703 00001702 00004708 00001709 00001740 
00001753 00001754 00001755 00001756 00001757 00001758 
00001779 00001780 00001783 00001795 00001796 00004805 
00001862 00001863 00002220 00002267 00002353 0000239; 
ee PROCEDURE ©" DECLARED IN SEGMENT ® AT 00001933 
00002015 00002565 00002567 
INTEGER == DECLARED IN SEGMENT 39 AT 80003070 
*00003097%%00003098* 00003099 
INTEGER °*™ DECLARED IN SEGMENT 39 AT 60003070 
*00003094*% 00003415 00003121 00003135 
"" DEFINE ©" DECLARED IN SEGMENT 2 AT 00000856 
00001000 00001005 
T 7" DEFINE "=" DECLARED IN SEGMENT 2 AT 00000200 
00000477 00004208 00001209 000034210 00001583 00001610 
DEFINE e* DECLARED JN SEGMENT p AT 00000494 
0000097$ 00000980 00000989 00004554 00002312 00002660 
UNKNOWN = DECLARED IN SEGMENT 2 AT 00000191 
00000994 00000993 00000997 
INTEGER e* DECLARED IN SEGMENT 2 AT 000001614 
€00000508* 00001197 00001355 00004410 00001476 00001486 
00001534 00001554 00001597 00001605 00001657 00001658 
00001722 00001789 00001790 00003793 00001870 00002075 
0000244F 00002660 00002664 00002896 00002901 00002983 


DECLARED IN SEGMENT 38 AT 00002943 
00002954 *00002957% 00002966 *00002967%800002971* 00002989 ¥*00002990s 
DECLARED IN SEGMENT 36 AT 00002647 


DECLARED IN SEGMENT 2 AT 00000206 
DECLARED IN SEGMENT 38 AT 00002942 


00001554 


00004740 


00001428 


00001206 
00001328 
00001466 
00001492 
00001680 
00001758 
00001844 
00002430 


00001202 
00001268 
00001329 
00001439 
00001476 
00001520 
00001585 
00001654 
00001714 
00001759 
000016841 
00002430 


00001614 


00002664 


00001493 
00001659 
00002138 
00003202 


00001569 


00004743 


00001216 
00001329 
00001467 
00001534 
00001694 
00001759 
00001850 
00002444 


00004203 
00001269 
00001330 
00001445 
00001483 
00001524 
00004592 
00001667 
00001727 
00001762 
00001850 
00002444 


00001612 


00002896. 


00001501 
00001661 
00002223 


00003064 


00001585 


00004744 


00001226 
00001357 
00001468 
00001563 
00001695 
00001762 
00001855 
00002496 


00001205 
00001285 
00001349 
00001453 
00001484 
00001526 
000043600 
00001677 
00001740 
00001768 
00001855 
00002496 


00002733 


00003202 


00001511 
00001663 
00002312 


00001607 


00004783 


00001243 
00001360 
00001475 
00001574 
0000437034 
00001768 
00001858 


00001206 
00001293 
00001357 
00001459 
00001485 
00001533 
00001607 
00001680 
00001743 
00001770 
00001858 


00001516 
00001720 
00002316 


00001862 


00002267 


00001248 
00001409 
00001477 
00001577 
00001708 
00001770 
00001864 


00001246 
00001302 
00001360 
00001463 
00001490 
00001534 
000014608 
00001694 
00001744 
00001775 
00001864 


00001535 
00001721 
00002433 


*0000303f* 00003040 00003041 00003042 
RECTAR "7" DEFINE °° pDeclaRED IN SEGMENT 2 at 00000098 
00001222 00001225 00002500 00002798 
RecTAB == INTegeR == VALUE PARAMETER =" DFCLARED IN SEGMENT 2 AT 00002614 
RECTAB = INTEGER e VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002616 
00002615 
RECTAB = INTEGER = VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002808 
RECTAB =e INTEGER == VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00002810 
00002809 00002832 00002848 00002862 00002879 00002913 
RECTYPE °" DERINE ™" pecbaRED IN SEGMENT 2 at 00000073 
00001175 00002501 
RELOPyR ©" INTEGER =e HECLARED IN SEGMENT 16 AT 00001734 
*00001749*% 00001787 
REPEATSTAT = PROCEDURE = DECLARED IN SEGMENT 2 AT 00002368 
00002392 00002590 
REPEATSY #0 ODBFINE == DECLARED IN SEGMENT 2 AT 00000203 
00000944 00002590 
REPNUM =" INTEGER **" DECLARED IN SEGMENT 31 AT 00002370 
#00002373% 00002374 00002390 
RESWORDOPTION *" BOOLEAN 7" DECLARED JN SEGMENT 2 aT 00000157 
00000407 00000884 00000955 *00001044* 00001065 00003475 00003527 
RPaR "" NeFINE *" DECLARED IN SEGMENT 2 ay 00000199 
OOOOO4TF 00001296 00001359 00001364 00001409 00001418 00001419 00001432 00001433 00001439 00001450 
00001469 00001470 00001475 00001483 00001490 00001534 00001576 00001864 00001865 00001866 00001867 
00001868 00001669 00001874 00001685 00001920 00001921 00001943 00002003 00002004 00002038 00002039 
00002099 00002095 00002096 00002097 00002139 00002140 00002141 00002442 00002176 00002178 00002179 
00002160 00002678 00002683 00002886 00002915 00003138 00003139 00003140 00003503 00003504 
RT = INTEGER = DECLARED IN SEGMENT 2 AT 00000658 
*0000119%#*0000 4 355%#00001597%#0000 1 605**0000 1 658%#00001721**00001790%%00004793**00002075*«000024 38%*00002223 
*00002316%#00002433%#00002447%400002904% 
SAVEFACTOR ** INTEGER ©" DECLARED IN SEGMENT 2 AT 00000028 
0000355% 00003558 00003564 00003566 «00000973*%#00000987% 00000992 
SEARCH *" DEFINE °° * DECLARED IN SEGMENT 2 AT 000004036 
00001319 00001345 00001389 00001427 00001554 00001881 00001890 00001939 00002030 00002053 00002082 
00002116 00002159 00002312 00002405 00002487 00002555 00002653 00002660 00002664 00002894 00002860 
00002868 00002896 00003109 00003202 000033186 
SEARCWTAB == QOFFINE = DECLARED IN SEGMENT p AT 00000424 
00001224 00004319 00001345 000043869 00004427 00001554 00001884 00001890 00003939 00007030 00002053 
00002082 00002116 00002159 00002312 00002405 00002487 00002555 00002653 00002660 00002664 00002694 
00002868 00002868 00002896 00003109 00003202 00003279 00003292 00003318 
SEMICOLON = DEFINE = DECLARED IN SEGMENT 2 AT 00000200 
00000386 00000477 00002248 00002253 00002305 00002337 00002338 00002340 00002344 00002382 00002595 
00002824 00002851 00002890 00002919 00003137 00003187 00003213 00003214 00003215 00003234 00003235 
00003236 00003266 00003267 00003304 00003333 00003335 00003336 00003388 00003403 00003503 00003505 
00003506 00003507 00003506 ; 
SeT ©" DEFINE == DECLARED IN SEGMENT 2 aT 00000090 
0000449% 00001355 00001597 000041605 00004644 00001619 00004643 00004649 00001658 00001704 0000172, 
0000176 00001790 00001792 00004793 00002075 00002138 00002223 00002316 00002433 00002447 00002783 
0000278F 00002904 
SETSY "" DEFINE ** DpECLARED IN SEGMENT 2 aT 00000207 
00000924 00002769 
SETTYPE == DEFINE = DECLARED IN SEGMENT 9 AT 00000094 
00001197 00004355 00001597 00004605 00001615 00004658 00001721 00004790 00001793 00002075 00002438 
00002223 00002316 00002433 00002447 00002783 00002901 
SIGNED *" BOOLEAN *" DECLARED IN SEGMENT 2 aT 00000729 
#00001554%400002312%*00002660%*00002664%%00002896%«00003202« 
SIGNED "" BOOLEAN °" DECLARED IN SEGMENT 15 aT 00001675 
#00001679*" 00001685 


SEMPLEEXPRESSION 


00004729 


SIMPLE VARIABLE 


SIZE 9 


SKIP = 


SLASH * 
START © 


START * 


oe PROCEDURE == 


00004745 


BOOLEAN 


00001784 


me DECLARED IN SEGMENT 2 AT 00001155 


00002658 


00001409 
00003611 
00002095 
00002300 
00002583 
00002886 
00003236 
00003503 


OCCURS 


DECLARED IN SEGMENT 2 AT 00001672 


00002660 


00001418 
00001864 
00002096 
00002334 
00002595 
00002909 
00003256 
00003505 


00002664 


00001432 
00001865 
00002139 
00002338 
00002678 
00002915 
00003258 
00003506 


AT 00000681 


se OCCURS AT 00003168 


#00001174**00004179%*00001184* 00004336 00002495 
DEFINE =" DECLARED IN SEGMENT 2 AT 90000102 
00000504 00001204 00001205 00001614 00002167 
00002743 00002764 00002784 00002799 
PROCEDURE "" pECbLARED IN SEGMENT 2 aT 00000379 
00000385 00000388 00001209 00001296 00001359 
00003475 00004483 00001490 00001534 00004576 
00001869 00001920 00002003 00002038 00002094 
00002179 00002209 00002233 00002255 00002270 
00002425 00002438 00002450 0000252, 00002547 
00002840 00002882 00002883 000027884 00002885 
00003213 00003214 00003235 00003234 00003235 
00003333 00003335 00003336 00003388 00003403 
" OEFINE °°" QDECLARED IN SEGMENT 2 aT 00000195 
00000477 00001637 00001663 
= LABEE ©" DECLARED IN SEGMENT 8 AT 00000879 
0000088 00001071 
=" LABEE =" DECLARED IN SEGMENT 40 aT 00003153 
00003405 
EL = INTEGER #* DECLARED IN SEGMENT 34 aT 00002480 


STARTLEV 


*00002489" 00002525 
se INTEGER eo 
*00004168* 00001952 


STARTSYM 
STARTSYM 


on TWT 


EGER = 


#00001558* 00001563 
we INTEGER ee 
#00001626« 00001647 
"= INTEGER © 
*00001677»% 00001701 


STARTSYM 
STARTSYM 


STARTSYM 


== INT 


EGER @* 


*00001743" 00001753 


STATEMEN 
STATM @ 
STATM 
STATM 
STRING 

STRINGPN 


sTRuct 


STYPE «= 
SUBRANGE 
SUBTYPE 


we DECLARED IN SEGMENT 97 aT 
we DECLARED IN SEGMENT 30 aT 


we DECLARED IN SEGMENT 32 aT 


T = PROCEDURE 
00009249 00009076 
= LABEL 

00002254 000020952 
* LABEL 

0000235 

» LABEL 

0000242% 00002441 
"" REAL ARRAY °° 
00000499 

T ** POINTER &* 


b dal 


FI 
00000508 


*00000490m 00001009 
e* oOFCLARED IN SEGMENT 2 Ay 900000103 


00000559 


00001254 


00004255 


DECLARED IN SEGMENT 
*00001592* 00001600 
DECLARED IN SEGMENT 
*00001651% 00001667 
DECLARED IN SEGMENT 


00001708 #00001714* 00001727 


00001762 


DECLARED IN SEGMENT 2 AT 00002529 


00009978 
00002256 


DECLARED IN SEGMENT 
DECLARED IN SEGMENT 


00001016 
00004206 


00001768 
00009336 


00001020 
00001238 


00002692 00002738 00002742 00009760 


00003123 


° INTEGER 


00003124 


== DECLARED IN SEGMENT 12 aT 000014370 


00001594 *00004595" 00004597 
e- DEFINE fo 


00002660 


"= DEFINE == 


00001197 
00002316 


00002664 


00001355 
00002433 


00001597 
00002447 


DECLARED IN SEGMENT 10 AT 00001160 
12 AT 00001370 
14 AT 00001625 
15 AT 00001674 
DECLARED IN SEGMENT 16 ar 00001734 


00001773 00001774 *00001783* 00001795 


00002363 
00002243 


00002351 


00002399 


00009378 


FORWARD AT 00002196 


00002458 


000025294 


m= OCCURS AT 00002249 


== OCCURS AT 00002363 


e= OCCURS AT 00002458 


2 AT 00000126 


2 AT 00000127 


00001951 


00001264 
00002765 


00004335 
00002783 


00001602 #00001603* 00001605 


00001605 
00002660 


DECLARED IN SEGMENT 2 aT 00000085 


00001658 
00002664 


DECLARED JN SEGMENT 2 AT 00002619 


00001721 
00002901 


00001614 
00002798 


00001615 


00001790 


00002213 
00002963 


00001793 


00002680 


00001439 
00001866 
00002140 
00002342 
00002734 
00003139 
00003266 
00003507 


00009596 


00002660 
00002985 


00002075 


00002692 


00001450 
00001867 
00002141 
00002356 
00002804 
00003184 
00003267 
00003508 


00002664 
00003038 


00002138 


00002726 


00001469 
00001868 
00002176 
00002387 
00002803 
00003187 
00003304 


00002679 
00003049 


00002223 


SX #2 
SYMBOL, 


SYMBOL 
SYMBOL 


SYMBOL] 
SYMKIND 


SYMTAB 


~~ + = 
a 
2 


TAB o* 
TAB «= 


REAL **® DECLARED IN SEGMENT 2 AT 00004092 
#00001 8074%*0000 1900%*00002088%*00002 1 65%*#00002216*#00002222%* 00002267 #0000235 3##0000239 1 #*00002431%%00002445s 
*00002580% 
INTEGER = DECLARED IN SEGMENT 36 AT 90002647 
00002719 00002736 *00002743* 00002746 00002756 00002764 00002776 00002795 *00002796* 00002799 00002800 
INTEGER =" DECLARED IN SEGMENT 37 AT 00002814 
00002842 00002847 
w= INTEGER ARRAY **" DECLARED IN SEGMENT 2 AT 00000146 
#00000475*« 00001025 
ee INTEGER **" VALUE PARAMETER ** DECLARED IN SEGMENT 2 AT 00000379 
"" INTEGER ©" VALUE PARAMETER =" DECLARED IN SEGMENT 2 aT 00000380 
00000362 
C 7" DEFINE "=" DECLARED IN SEGMENT 2 AT 00000084 
0000051Z% 00002660 00002664 00002679 
ee INTEGER ARRAY == DECLARED IN SEGMENT 2 AT 00000147 
00000389 *00000470% 00003427 0000188; 00001883 00004939 00001941 00002030 00002210 00002252 00002273 
00002359 00002381 00002386 090002427 00002441 00002594 00003189 00003216 00003237 00003268 00003390 
00003408 
we REAG ARRAY ** DECLARED IN SEGMENT 2 AT 00000142 
*0000117044000011804«00001189%%00001194 44000011964 400001201 ##000012026 #00001 203400001205 %#00001206«%00001 216" 
*00001226%#00001227%4%00001238%400001242%400001243%800001246%*00001253%*00001254%%00001255**00001266%*0000 1 268% 


#000012694%00001285%+#0000129 3%#0000 4 302%%00001 303400001307 %#00001310%#00001311%#00001312%*00001328%%00001329«. 


#00004 330% #00004 349%%*00001 357400001 360800001397 * #00001 398#*00001409%#00001416*#00001428%#00004429%*00004439% 
*00001448%*0000 145 3%*00001459% #00001 463%#0000 1 465% 0000 1 466%*0000 1467%#0000 1 468**00001475%*00001477%«00001 478% 
*00001483% 400001484 400001485 4400004490 4400001491 ##00001492%*0000 1500%%0000 1505 ##00001510%#00001515*«00001520« 
*0000152$%#00001533%*00001534"#00001554*«00001558%**00001563%*00001569%%00001574%*00001577%*00001585%*00001592% 
*00001600%#00001607*#0000 1606400001 626% #0000 1636%*00001637%#*0000 164140000 1647%#00001648%*00001651%*00001667« 
#0000167 F##0000 1680440000 16944400001 6954400001701 **000017024#00001708%#00001709##00001710%*00001714%*«00001727% 
*00001740%*00001743%4000017444400001 7534400001 754%%00001755%#00001756%*00001 757400001 758%*00001759ex 00001762" 
#00001768%%00001770%#0000177 34400001774 %400001775%400001779%#00001780%#00001783%4000017954400001796«%00001804e 
*00001805% 00001807 *00001841*#0000 18504400004 855%%00001858 400001661 *«00001862%80000186 3" 00001900 00002088 
00002165 00002218 *00002220" 00002222 «00002267 %«00002353%«00002391%*00002430% 00002431 *00002444*« 00002445 
*00002496% 00002508 00002582 
REAL "=" DECLARED IN SEGMENT 19 AT 00003161 
*00004168% 00001469 00001172 00004173 €00004175%**00004194* 00001193 00004497 00001198 *00001217* 00004248 
00004228 00004925 *00004234" 00001235 00003237 00004240 00001246 00001259 
INTEGER *" DECLARED IN SEGMENT 12 AT 08001370 
*00001540* 00001542 
INTEGER =" DECLARED IN SEGMENT 23 AT 080002045 
*00002058* 00002059 00002064 00002062 
INTEGER =" DECLARED IN SEGMENT 24 AT 08002305 
#00002124% 00002122 00002124 00002125 
INTEGER °°" DECLARED IN SEGMENT 29 AT 00002287 
#00002328% 00002325 #00002326« 00002327 
INTEGER *" DECLARED IN SEGMENT 36 aT 00002647 
*00002714% 00002723 *00002730* 00002739 00002741 *00002744**00002758* 00002759 00002760 00002763 
INTegeR @" pecbLaRep IN SegMENT 39 aT 00003070 
*00003119% 00003720 00003123 00003424 
INTEGER == DECLARED IN SEGMENT 40 AT 00003449 
*00003328* 00003324 *00003339* 00003340 00003343 00003356 00003366 *00003384* 00003385 
INTEGER ARRAY = NAME PARAMETER ©@e DECLARED IN SEGMENT 2 AT 00002936 
INTEGER ARRAY *=* NAME PARAMETER = DECLARED IN SEGMENT 2 AT 00002938 
000029506 
ew INTEGER ** VALUE PARAMETER *" DECLARED IN SEGMENT 2 AT 00000228 
me INTEGER °* VALUE PARAMETER "© DpECLARED IN SEGMENT 2 AT 00000231 
00000229 
me INTEGER ** VALUE PARAMETER "* DECLARED IN SEGMENT 2 AT 00000580 
wr INTEGER ©" VALUE PARAMETER ** pECLARED IN SEGMENT 2 AT 00000583 


TEMPSYM 


0000058; 00000589 

ee ALPHA == DECLARED IN SEGMENT 2 AT 00004091 
#00004 489400004 196*#00001204 **00001209%«00004 203400001205 440000 1 206%*00001216%*00001226*400001243%#00001 248% 
*00001266«*00001293%400001307 4400001 310%«00001311%**00001312%*00001328*«00001329%*4000013574#00001 360%#00001409% 
*00001416%400001439%«00001445%%0000 1453440000 1463%"00001465%«00001466%#00001467%%000014684e00001475"e 00001477" 
#0000147844000014834%0000 1484440000 1485 400001490 4400001491 440000149 2%80000 1534440000156 3%"e00001874%x00001577« 
*00001600%#00001607«#00001636%4*00001637%« 00001647 *# 00001667 *#*00001680**000016944*00001695*#*00001701 ** 00001706" 
*00001727%#00004753**00001754%*00004755%«00001756%*00004757%**00001758**00001759%*00001762%*00001768%**00001770" 
*00001775%#00001779%*00001 7804800001795 4400001 79640000 4805%%00001841 «0000 1650%*000018554#00001858%«00001861% 
*00001662%#00001 86 3**00002220%#00002267%«00002 353*#00002391+**00002430%*00002444%#00002496* 


TEMPVARNUM 


INTEGER o@ 


DECLARED IN SEGMENT 29 aT 00002287 


*0000029g% 00002099 00002293 


00009317 


TERM ** PROCEBURE = DECLARED IN SEGMENT 2 AT 000014623 
00001669 00004683 00001735 
TERMINAL *= DEFINE ## DECLARED IN SEGMENT 2 AT 00000211 
00000470 00000471 00001427 0000188; 00001883 00001939 00001941 00002030 00002210 00002273 00002594 
TERMMESS “™* FORMAT °= DECLARED IN SEGMENT 3 aT 00000190 
00003523 
TEXT @" Real a~RRAY "= DECLARED -IN SEGMENT 2 AT 00000126 


400000322 % 4000003284 %000003394400000343%n00000344e 00000488 *00000493%%00000645 4400000647 %%00001019" 00001024 

*00001180**00001285*#00001326%*00001329%400001330*#00001349%*00001426%*00001 807%*00001 880*#00001900%*00001904 * 
*00001908%*0000 190 3%*0000 1904400001905 %%0000 1906%*0000 1 907% *00001910%*00001911%*00001912%#00001918*«00001925" 
*00001926%40000 1927 4#00001929 %40000 1938 %%00001948%%0000 1949 4400001950 8400001958 4800001959 «00001960 %«00001964" 
*000019654*0000 1966%*00001969%%0000 197 3%«00001974#*0000 1975*400001976%%0000 1977440000 1982%*000019884«00001989" 
#0000 19924 «0000 1993440000 1994440000 1995 400000 1996440000 1999 %#00002001% «00002010 4%000020 1 1 #*00002042%e0000201 4" 
*00002024 #%0000 2025 ##0000 20 26 4 «00002027 #4000020 28 #40000 20 30 #000020 34 % #000020 35% 4000020 36 **00002037 «400002046 
*00002065%#00002066%+*00002074%%00002078*400002088% 40000209944 00002106%#000024 13%*00002128#400002129%%00002137% 
*00002148 440000235 16 %000021524%00002165 4400002169 44000022168 %400002222 4 %00002245 400002246 4800002250 400002258» 
*000022664%#00002967 «400002275 4«00002078 *8000022904%0000229 3%#00002995 4#00002309%%000029317%#00009330%%00002333 
*00002340440000234 34%0000 2352440000935 34h0000 236 1%*00002374%4000023754800002379%400002390%#00002394%«0000240;1% 
#00002429 400002431 0000 2432440000244 344000024465 0400002446 4400002454 06400002455 4400002456 4400002457 «10000 2459% 
#*00002472%* 00002543 4* 000025 62% #00002956 #0000295 9%" 00002960 #0000296 1 *#00002965 #4 00002966 800002967 #0000297 1% 
*00002978**0000 297540000297 6480000297944 00002980%*00002982%%*00002986%#00002990%«00003011%*00003042%*0000304 3% 
*000030144#000030154*000030 4840000 3029440000 3026440000 3027 #*0000 3028 «0000 3029%*0000 3031 4#00003034**00003036% 
*00003040%#0000 3041440000 3082440000 3044480000 3045%%0000 3046%*0000 3047%«0000 3048%40000 3051 *#00003054%%00003056" 
#0000 3058400003059 480000 3060440000 3064 4400003167 #400003171%*00003185%«000031884#000033374%#00003338 00003342" 
#00003347 #00003 349 %%«0000 3352440000 3354 400003360 %%0000 3362840000 3365 %#0000 3367 «0000 3374 4400003389 % «00003395 


*000033984+#00003409%%0000 34 104%0000 3414 %%0000 34 16%«0000 34 18**00003423%«00003439% 00003536 00000559 00001240 

00002763 00002991 00003037 
TEXTPNT ee POINTER e= DECLARED IN SEGMENT 2 AT 00000127 
00000323 *00000488* 00000489 0000049, 00000495 00000646 00000649 00004020 00003180 00001285 00004326 
00004329 00001330 00001349 00004428 00002245 00002258 00002290 00002343 00002374 00002390 
TEXTPNTO *# POINTER = DECLARED IN SEGMENT @ AT 00000127 

00000328 00000339 00000343 00000344 #00000466* 00001807 00001880 00001900 00001904 00001902 00001903 
00001904 00001905 00001906 00001907 00001910 00001911 00001912 00001918 00001925 00001926 00001927 
00001929 00001936 00001948 00001949 00001950 00001958 00001959 00001960 00001964 00001965 00001966 
00001969 00001973 00001974 00001975 00001976 00001977 00001982 00001988 00001989 00001992 00001993 
00001993 00001995 00001996 00001999 00002001 00002010 00002011 00002012 00002014 00002024 00002025 
00002026 00002027 00002028 00002030 00002034 00002035 00002036 00002037 00002046 00002065 00002066 
00002078 00002078 00002086 00002099 00002106 00002113 00002128 00002129 00002137 00002144 00002153 
00002152 00002165 00002169 00002218 00002222 00002246 00002250 00002258 00002266 00002267 00002275 
00002278 00002293 00002295 00002309 00002317 00002330 00002333 00002340 00002343 00002352 00002353 
0000236% 00002375 00002379 00002390 00002391 00002401 00002429 00002434 00002432 00002843 00002445 
00002446 00002454 00002455 00002456 00002457 00002459 00002472 00002543 00002582 00002956 00002959 
00002966 0000296; 00002965 00002966 00002967 00002971 00002974 00002975 00002976 00002979 00002980 
00002983 00002986 00002990 00003044 00003042 00003013 00003014 00003015 00003018 00003022 00003026 
00003027 00003028 00003029 00003031 00003034 00003036 00003040 00003041 00003042 00003044 00003045 


00003046 00003047 00003048 0000305; 00003054 00003056 00003058 00003059 00003060 00003064 00003167 
0000317% 00003185 00003188 00003337 00003338 00003342 00003347 00003349 00003352 00003354 00003360 
00003362 00003365 00003367 00003374 00003389 00003395 00003398 00003409 00003410 00003411 00003446 
00003418 00003423 00003439 


TEXTTYPE = INTEGER #= DECLARED IN SEGMENT @ AT 00000163 
*00000558* 00000559 00000562 
TFORM == INTEGER e* DECLARED IN SEGMENT 2 AT 00000728 | 
*000034554*#00002312*#00002660%* «00009664 *#00002896%400003202% 
THENSY = DEFINE == DECLARED IN SEGMENT 2 AT 00000202 
00000928 00002268 00002270 0000227, 
THISID **= ALPHA = DECLARED IN SEGMENT 2 aT 00000418 
00001179 *000012925* 00001227 00001286 00001287 *00001319* 00001322 00001323 00001327 *00001345* 00001348 
00001350 *00001389*% 00001392 00001393 00001395 00001397 00001398 00001399 00001402 #00001427* 00001540 
00001545 *90001554#*00001881#*00001890* 00001893 00001894 *00001939%#00002030%«00002053* 00002056 00002058 
00002065 00002066 #00002082% 00002085 00002086 #00002116*% 00002119 00002121 00002128 00002129 +*00002159« 
00002208 00002205 00002228 #00002312%400002405* 00002409 00002410 00002414 *00002487% 00002490 «00002555 
00002558 00002559 00002560 00002561 #00002653* 00002656 00002658 *00002660%400002664%*00002894« 00002697 
00002696 *00002860« 00002861 #00002868* 00002871 00002873 *00002896%400003109# 00003112 00003114 «00003202« 
#00003280% 00003281 00003262 *00003293% 00003294 00003297 00003301 00003302 «*00003318* 00003321 00003323 
00003326 
THISINDEX ©* INTEGER @= DECLARED IN SEGMENT 2 AT 00000447 
*00000506* 00000507 *00000510* 00000534 *00000514* 00000515 *00000518* 00000519 *00000522* 00000523 *00000525* 
*00000527#*000005341*% 00000533 #00000540*#00000542*«0000054 3**00000504*«0000055 3##00000555*#00000556**0000056 4% 
*00000568@* 00000565 «00000566 00000567 00001180 *00001222* 00001225 00001285 #*00001319* 00001328 00001329 
00001330 *00001345* 00001349 «00001 389%*«00001 427%«00001554«#00001881%*00001890%400001939%#00002030%*0000205 3% 
00002063 #00002082%#00002116*% 00002127 #00002159*« 00002227 00002228 #00002312%#00002405% 00002408 «00002487« 
*0000255$ «#0000 2653400002660 %%000026644400002673% 00002674 «00002694%%00002832% 00002833 *00002860%+00002862" 
*000028684%00002896%*00003096% 00003097 £00003109%%00003196%*00003202%400003226%#00003253*" 00003254 «00003279 
00003280 *00003292« 00003293 00003296 00003299 «00003307%#00003318% 
THISLEVEL == INTEGER =" DECLARED IN SEGMENT 2 AT 00000417 . 
00004466 00004468 00004478 000044860 00004285 *00004349*% 00004328 00004329 00001330 *00001345* 00004349 
#00004 389 #40000 1427 4800001554 #%0000 188, %¥0000 1890440000 1939%*00002030%*00002053" 00002063 00002064 *00002082" 
*00002116% 00002426 00002127 *00002159* 00002227 00002228 *00002312**00002405*%* 00002408 00002412 00002413 
#0000248%%*00002555% 00002563 *00002653%#00002660%#00002664%#00002694¥% 000028600000 2868%*00002896%*00003109% 
*00003202« 00003299 «00003316 
THISTAB °°" INTEGER " DECLARED JIN SEGMENT 2 aT 00000417 
#00001319%%00001345%%00001389« 00001404 400001427 ##00001554460000 1881 **00001890%%00001939 4000020 30440000205 3% 
#0000208244%000024 16%#00002159%%000023129%400002405 4400002487 «400002555 «400002653 %H0000 2660400002664 %«00002694e 
#00002860%+%00002868%*00002896**00003109%%00003202**00003318* 
TNAME = ALPHA =" DrCLARED IN SEGMENT 2 aT 00000418 
*00000506 «#000005 10% #0000051 44000005 18 *600000522%400000525 **00000527 ##000005 34 **00000540*#00000842%*00000543* 
#0000054§* #0000055 3*#*00000555%**00000556*#00000561*#00000564**00000566%40000 1 222**00001319%*00004 345**00004 389" 
*00001427 ##0000 1554 #%0000188 4 ##0000 1690 %400001939 44000020 30% #000020534#00002082%4000024 16%#*00002159"*00002312% 
*00002405%#00002487 #4 00002555 400002653 %%«00002660#«00002664«* 0000267 3%%*00002694%« 000028 32%*00002860**00002862" 
#00002866%*00002896%*0000 3096%%0000 3109%%0000 3196%*0000 3202* #0000 3226**0000 325 3%*0000 3279440000 3292%%00003307" 
#00003318« . 
TOPLEVEL = INTEGER ==" DECLARED IN SEGMENT @ AT 00000172 
00001319 00001345 00001389 00004427 00001554 0000188; 00001890 00001939 00002030 00002053 00002082 
00002116 00002359 00002312 00002405 00002482 00002487 00002497 %00002499* 00002512 #00002525*« 00002555 
00002653 00002660 00002664 00002694 00002860 00002868 00002896 00003109 #00003166* 00003202 00003318 
400003386» 
TOPREC =  NTEGER #= DECLARED IN SEGMENT 49 AT 00003155 
*00003463* 00003429 00003433 
ToSY e DEFINE = DECLARED IN SEGMENT 2 AT 00000205 
00000909 00002435 00002438 00002439 
TSIZE =" INTEGER =" NAME PARAMETER *" OECLARED IN SEGMENT 2 AT 00002637 
TSIZE = INTEGER ©" NAME PARAMETER =" DECLARED IN SEGMENT 2 AT 00002638 


*000026584#00002660% 00002661 00002662 400002664%400002680#*00002692* 00002699 00002707 *000027464%00002764« 
*00002788"*00002799™ 


TS1ZE o*" ofNTEGER == NAME PARAMETER "* pecCLaARED IN SEGMENT 36 AT 00002640 

TSIZE == INTEGER == NAME PARAMETER == DECLARED IN SEGMENT 36 AT 00002642 
*0000264q* 

TTYPE = INTEGER = NAME PARAMETER ©= DECLARED IN SEGMENT 2 AT 00002637 

TTYPE = INTEGER © NAME PARAMETER ==" DECLARED IN SEGMENT 2 AT 00002638 
*00002658%#00002660% 0000266; 00002662 £00002664%«00002680%*00002691% 00002699 00002707 *00002746*«00002762™ 
*#00002782%#00002797« 

TTYPE *" INTEGER ©" NAME PARAMETER ™" DECLARED IN SEGMENT 36 AT 00002640 

TTYPE = INTEGER © NAME PARAMETER == DECLARED IN SEGMENT 36 AT 00002642 
#00002644% 

TT1 #* INTEGER =" DECLARED IN SEGMENT 2 AT @0000658 
#00001197 600001355 400001597 #40000 1605 400001658 %%00001721 ##00001790 «#0000179 3%%00002075 "#000021 38400002223» 
*00002316%400002433%4000024474%00002901% 

Tie. se iTeGer we DFCLARED IN SEGMENT 2 ay 90000658 
*0 004 197% #00004 355 #0000 1597 #00001 605 *#0000 1 658% *00001721 **00001790 #400004 793#%00002075 #000024 38%*000022238 
*00002316**00002433**00002447%%00002904% 

TX = INTEGER *= DECLARED IN SEGMENT 2 AT 00001093 
#0000 1807 ##0000 1900 #%00002066%#00002165 #6000022 164%00002222%*00002267 ##00002353%#0000239 1 *%00002431%#00002445m 
#00002582 

TX © INTEGER ©" DECLARED IN SEGMENT 36 AT 80002647 
00002719 00002720 00002722 00002723 00002724 00002736 00002737 00002738 00002742 *00002744*" 00002746 
00002756 00002757 00002758 00002764 00002776 00002777 00002779 00002780 00002783 00002785 00002786 

TX "" INTEGER =" DECLARED IN SEGMENT 37 ar 90002814 
00002842 00002843 00002844 

TX = INTeGgeR ee DECLARED IN SeGMeENT 40 ay 00003149 
00003234 00003962 *00003339% 00003340 00003343 00003352 00003356 00003366 

TYP w= INTEGER =" ODFCLARED IN SEGMENT 38 aT 00002942 
*00002954% 00002980 00002982 *00000983% 00002984 

TYPE = DEFINE = DECLARED IN SEGMENT 2 AT 00000059 
00001179 00003727 00003327 00004350 00003399 00001427 00001540 00001554 0000188; 00003939 00002030 
00002058 00002065 00002066 0000212; 00002328 00002129 00002228 00002312 00002414 00002658 00002660 
00002664 00002668 00002698 00002844 00002873 00002878 00002896 00002951 00003114 00003202 00003239 
00003262 00003323 00003326 

TYPeprclh =" PROCEDURE =" DECLARED IN SEGMENT 2 aT 00002637 
00002719 00002736 00002756 00002776 00002805 00002842 00003231 00003262 

TYPEINDEX = INTEGER |= DECLARED IN SEGMENT 2 AT 00000349 
00001614" 00001615 00001616 #00002660%*%00002664««00002668* 00002680 00002681 00002682 *0000269;% 00002693 
00002698 00002704 *00002727*% 00002728 00002729 00002730 *00002762* 00002766 *00002782% 00002784 00002785 
00002786 *00002797% 00002799 00002800 

TYPERR ** PROCEDURE ©* DECLARED IN SEGMENT 36 AT 00002640 
00002664 00002662 00002699 00002707 

TYPES © DEFINE ©" pECLARED IN SEGMENT 2 al 00000065 
00000506 00000810 00000534 00000538 00000522 00000560 00002656 00002697 0000286; 00002871 00003112 
00003232 00003261 00003321 

TYPESY ©" DEFINE ©" DECLARED IN SEGMENT 2 aT 00000206 


00000933 00003220 00003404 


TYPETABTOP *" INTEGER "=" DECLARED IN SEGMENT 40 aT 00003155 


#00003161«% 00003437 


TYPETAB1 ** ReAL ARRAY °* DECLARED IN SEGMENT 2 AT 00000081 


#00000505 «#00000509*#000005 4 3#*00000547%%00000521**00000559" 00001175 00001194 00001197 00004204 00001205 
00001206 00001217 00001234 00004238 00001264 00001301 00001335 00001355 00001409 00001417 00001427 
00001439 00003449 00001464 00004475 00001483 00001490 00001534 00001554 00001596 00001597 00001604 
00001608 *00001615* 00001632 00003657 00001658 00001686 00001691 00001720 00001721 00003748 00001789 
00001798 00001792 00001793 00004847 00001852 00001855 00001858 00001861 00001881 00004882 00001896 
00001939 00001940 00001968 00001984 00001987 00002030 00002032 00002058 00002062 00002075 00002090 


000021190 00002121 00002125 00002138 00002163 00002166 00002167 00002213 00002219 00002223 00002296 
00002312 00002316 00002415 00002433 00002447 00002494 00002500 00002658 *00002660##*00002664%*00002684« 
*00002693%*00002698e 00002722 *00002728* 00002737 00002738 00002741 #00002744* 00002758 *00002766* 00002779 
*000027844*00002799% 00002843 00002873 00002896 00002901 00002951 00002984 00003038 00003049 00003119 
00003202 *00003282% 00003323 


TYPETAB@ =" REAL ARRAY ** DECLARED IN SEGMENT 2 AT 00000081 


*00000505* 00004492 00001330 00001465 00004910 00002065 00002428 00002220 00002417 *00002660**00002664« 
#00002689* 00002724 *00002729% 00009780 «*00002785**00002800*% 00002874 00002980 00003039 00003054 


TYPETAB3 == REAL ARRAY = DECLARED IN SEGMENT 2 AT 90000081 


TYPEX1 


TYPEX2 


TYPEY 


TYPE 


TYPE! 


tT! 


"1 
" 
1 


T1 
Tl 
T2 
T2 
T3 


T3 


T3 
T3 


13 


T4 
T5 


*000005084%*00000517*«400000524% 00004192 00001311 00001466 00001911 00002066 00002129 00002220 00002417 
*00002660%*00002664%#00002682* 00002724 *00002729% 00002780 *00002786**00002800% 00002874 00002982 00003039 
00003056 
"= INTEGER 7" pECLARED IN SEGMENT 2 aT 00002611 
*00002660##00002664% 
wm INTEGER = DECLARED IN SEGMENT 2 aT 00002611 
*00002660%*00002664* 
e= INTEGER ** DECLARED IN SEGMENT ¢4 AT 00001625 
*00001631* 00001632 00001653 00003655 00001657 00001658 00001659 00001664 
=" INTEGER = DECLARED IN SEGMENT 15 AT 00001674 
*00001694* 00001716 00001718 00001720 00001721 00001722 00001724 
e’ INTEGER = DECLARED IN SEGMENT 16 aT 00001734 
*00001748* 00001785 00001786 00001789 00001790 00001793 
INTEGER °" DECLARED IN SEGMENT 2 AT 00000166 


*000009564#00000957% 00000958 *00001252* 00001253 «000016148*00001615%#00001807%#00001900%*00002088**«00002216« 


*00002222%#00002267 «#0000235 3%*00002394 *#00002431%*00002445%*00002582* 
INTEGER == DECLARED IN SEGMENT 5 AT 00000468 . | 

#00000496* 00000497 00000498 *00000504* 00000505 +*00000509**00000513**00000517%#00000524**00000559% 
INTEGER == DECLARED IN SEGMENT 25 AT 90002150 


— #00002165%#00002466%*00002167% 00002168 00002169 


INTEGER = DECLARED IN SEGMENT 36 AT @0002647 
600002660 «400002664 %4#000026794e00000680% 00002681 «00002694 %*00002692* 00002693 #00002723%*00002726*% 00002728 
#0000274¢4400002742u800002743% 00002744 400002763%%00002764400002765% 00002766 «00002783%«00002784«%«00002798" 
*00002799« 
INTEGER ** DECLARED IN SEGMENT 37 ar 00002814 
*00002873% 00002875 
INTEGER ** pechaRED IN SEGMENT 38 ary 00002942 
*0000295¢@*« 00002963 00002972 00002983 «00002984* 00002985 00002991 00003037 00003038 00003039 00003049 
00003054 00003056 
INTEGER =" DECLARED IN SEGMENT 2 aT 00000166 
INTEGER == DECLARED IN SEGMENT 36 Ay 00002647 
*0000272%* 00002725 00002726 00009729 
INTEGER == DECLARED IN SEGMENT 2 AT 00000166 
#000011706%400003114* 00003146 00003119 %00003125*«00003126%*00003127 **000031324*00003134* 00003136 
INTEGER ** DECLARED IN SEGMENT 5 AT 09000468 . 

*00000508%%00000506% 00000507 *00000508%«00000510% 00000511 *00000512%%00000514« 00000515 +*00000516««00000518™ 
00000519 *00000520%*00000522% 00000523 *00000524* 00000525 *00000526* 00000527 *00000531**00000532* 00000533 
*00000536* 00000540 00000542 00000543 00000544 *00000546* 00000553 00000555 00000556 *00000558#«00000560" 

00000568 «00000562%«00000563*% 00000565 00000567 
INTEGER ©" DECLARED IN SEGMENT 36 AT 80002647 
#00002668%%000026744%#00002724" 00009725 00002726 00002729 *00002741% 00002744 
INTEGER == DECLARED IN SEGMENT 37 At 90002814 
*00002844**00002847*% 00002848 *0000987g—* 00002879 
INTEGER =" DECLARED IN SEGMENT 40 AT 00003149 
#*00003208«#00003910%#00003211% 00003219 %00003232*% 00003233 *00003263*% 00003265 *00003308*#00003309*% 00003340 
INTEGER ©** DECLARED IN SEGMENT 2 AT 00000166 
#00001169% 00001470 
INTEGER © DECLARED IN SEGMENT 2 AT 09000166 
*00001169* 00001470 


eeee7eseeee0eeeeeeeeeee & @ 


ULIM = INTEGER *" DECLARED IN SEGMENT 10 AT 00001160 
#OOO001192* 00001196 
ULIM ©" INTEGER ©" QHECLARED IN SEGMENT 32 AT 00002397 
#00002417*% 00002430 00002444 
ULIM *® INTEGER 7" DECLARED IN SEGMENT 37 AT 00002814 
*#00002874%%00002888% 00002900 
UNPACK "= PROQEDURE =" DECLARED IN SEGMENT 2 AT 00002103 
00002145 00002580 
UNTILSY ** DEFINE ** DECLARED IN SEGMENT 2 aT 00000204 
00000937 00002383 00002386 00002387 00002386 
USER *= ALPHA 7" DECLARED IN SEGMENT 2 AT 08000169 
00003034 *00003460* 00003464 00003555 00003562 
VAL =** REAL #™ DECLARED IN SEGMENT 12 aT 00001372 
*00001554« 
VALUEPARAMS *" BOOLEAN ** DECLARED IN SEGMENT 40 AT 00003152 
*#00003355* 00003359 *00003361*% 00003365 
VALX1 = Reab = peclLARED IN SEGMENT 2 AT 06002610 
*000026608%4000029664« 
VALX2 e= REAL = DECLARED IN SEGMENT 2 AT 08002610 
*00002660**#00002664* 
VAR = DEFINE © DECLARED IN SEGMENT 2 AT 00000064 
0000056e@ 00004348 00001322 00004399 00004427 0000388, 00001893 00001939 00002030 
00002119 00002204 00002409 000024990 00002558 00002844 00002878 00003087 00003117 
VARIARLE 7" PROCEDURE *" DECLARED IN SEGMFNT 2 aT 00001158 
00001276 00001334 00001394 00001896 00002086 00002162 00002207 00002492 0000327; 
VARINnEX * INTEGER = DECLARED IN SEGMENT @ AT 00000344 
#00003248* 00003045 00003250 #0000325; %#00003252* 00003254 00003264 00003970 
VARLIST = INFEGER ARRAY == DECLARED IN SEGMENT 2 AT 00000140 
*00003254a* 00003965 00003270 
VARNUM =" INTEGER *= DECLARED IN SEGMENT 32 AT 00002397 
#00002808% 00002429 00002454 00002455 
VARSY " DEFINE "= DECLARED IN SEGMENT 2 aT 00000207 
00000928 00003085 00003087 00003241; 00003247 
VARTYPE °°" INTEGER "* QECLARED IN SEGMENT 38 aT 00002397 
*00002414% 00002415 00002417 #00002418%400002433%400002447% 
VERVE rRSTWITHSYM "© INTEGER == pechARED IN SEGMENT 34 AT 00002480 
*0000048@* 00009595 
Vi ee INTEGER = DECLARED IN SEGMENT 4 AT 09000317 
#00000334*% 00000335 00000336 
V2 = INTEGER = DECLARED IN SEGMENT 4 AT 00000317 
#00000335* 00000337 


WHILESTAT =" PROCEDURE 


DECLARED IN SEGMENT 2 AT 00002349 


00002368 00002589 

WHILESY "=" OEEINE "* DECLARED IN SEGMENT 2 aT 00000204 
00000938 00002589 

WITHSTAT 7" PROCEDURE "* DECLARED IN SEGMENT 2 aT 00002478 
00002526 00002592 

WITHSY "" DEFINE ©" DECLARED IN SEGMENT 2 AT 00000208 
00000938 00002592 

WITHTAB == REAL ARRAY = DECLARED IN SEGMENT 2 AT 00000144 


00004178 *00002508* 


WRITEALGOL ** PROCEDURE = DECLARED IN SEGMENT 2 AT 00000358 FORWARD AT 00000227 
00000321 00000327 00000328 00000339 00000343 00000344 00000365 00001807 00001880 
00001902 00001903 00001904 00001905 00001906 00001907 00001910 00001911 00001912 
00001926 O0001927 00001929 00001938 00001948 00001949 00001950 00001955 00001958 
00001963 00001965 00001966 00001969 00001973 00001974 00001975 00001976 00001977 
00001989 00001992 00001993 0000499q 00001995 00001996 00001999 00002004 00002010 


00002056 
00003263 


00001900 
00001918 
00001959 
00001982 
00002011 


00002085 


00001904 
00001925 
00001960 
00001966 
00002012 


q 

00002018 00002024 00002025 00002026 00002027 00002028 00002030 00002034 00002035 00002036 00002037 @ 
00002046 00002063 00002065 00002066 00002074 00002078 00002088 00002099 00002106 00002413 00002127 
00002128 00002129 00002137 00002144 00002151 00002152 00002165 00002169 00002218 00002222 00002228 
00002246 00002250 00002258 00002266 00002267 00002275 00002278 00002293 00002295 00002309 00002317 @ 
00002339 00002333 00002340 00002343 00002352 00002353 00002361 00002375 00002379 00002390 00002394 
-00002401 00002429 00002431 00002432 00002443 00002445 00002446 00002454 00002455 00002456 00002457 
00002459 00002472 00002543 00002582 00002956 00002959 00002960 00002961 00002965 00002966 00002967 | 
00002966 00002971 00002974 00002975 00002976 00002979 00002980 00002982 00002986 00002990 00003014 
00003012 00003013 00003014 00003015 00003018 00003022 00003025 00003026 00003027 00003028 00003029 
0000303@ 00003031 00003034 00003036 00003040 00003044 00003042 00003043 00003044 00003045 00003046 @ 
00003047 00003048 000030513 00003054 00003056 00003058 00003059 00003060 00003064 00003167 00003171 
00003176 00003185 00003188 00003337 00003338 00003342 00003344 00003347 00003348 00003349 00003350 
00003352 00003354 00003360 00003362 00003363 00003365 00003367 00003374 00003389 00003395 00003397 @ 
00003398 00003409 00003410 00003414 00003416 00003417 00003418 00003422 00003423 00003839 00003547 

WRITEEXPR == DEFINE == DECLARED IN SEGMENT 2 AT 00001128 
00001802 00003900 00002086 00002165 00002218 00002222 00002267 00002353 0000239; 0000243; 00002445 @ 
00002584 

X = REAL ©* VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00000313 

X ee REAL = VALUE PARAMETER = DECLARED JN SEGMENT 2 AT 00000314 ] 
00000312 00000322 00000328 00000329 00000344 

XLINE "" REAL ARRAY =" DECLARED IN SEGMENT eB AT 00000128 
00000407 00000481 00000884 00001065 00003475 00003527 @ 

XLINEPNT 7" POINTER ©" DECLARED IN SEGMENT @ AT 00000129 
*0000048%e 00000483 00000884 00000958 00001065 00003475 

XREFBLOCK =" DEFINE ©= DECLARED IN SEGMENT B AT 00000576 @ 

00000589 00000626 0000065; 
XREFCARD ee DEFINE «==» DECLARED IN SEGMENT 2 AT 00000575 
00000635 00000650  ] 

XREFCOMPARE *" BOOLEAN PROCEDURE == DECLARED IN SEGMENT 2 aT 00000601 
#00000608« 00000610 00003691 

XREFFILE == FILE © DECLARED IN SEGMENT 2 AT 00000135 & 

00000591 00000621 00003691 
XREFLINE "= REAL ARRAY "" DECLARED IN SEGMENT 2 aT 00000136 
00000619 00000630 00000632 00000644 00000643 00003689 e 
XREFMAX ©" PROCEDURE @* pECLARED IN SEGMENT 2 aT 00000594 
00000598 00003694 
XREFOPTION = BOOLEAN = DECLARED IN SEGMENT 2 AT 00000157 @ 
00000506 00000510 00000514 00000518 00000522 00000525 00000527 00000531 00000540 00000842 00000543 
00000544 00000553 00000555 00000556 00000561 00000564 00000566 *00001047* 00001222 00001319 00001345 
00001389 00001427 00001554 00001881 00001890 00001939 00002030 00002053 00002082 00002116 00002159 @ 
00002312 00002405 00002487 00002555 00002653 00002660 00002664 00002673 00002694 00002832 00002860 
00002862 00002868 00002896 00003096 00003109 00003198 00003202 00003226 00003253 00003279 00003292 
00003307 00003318 00003687 @ 

XREFPNT ©* POINTER = DECLARED JN SEGMENT 2 AT 00000137 
#000006 3%**00000633* 00000635 #000006 36%#00000643* 00000644 00000646 00000649 00000650 *00000651« 

Z 9" REAL ARRAY ©" DECLARED IN SEGMENT 42 At 00003533 & 
# 00003549 *#00003545#*0000355 34#* 00003554 ##00003555**00003556**00003557 ##*00003558*#00003559#*00003560##00003564 * 
*00003562**0000 356 3%* 0000 3566#*00003567%*00003569% 

ZEROLAB ** BOQLEAN = DECLARED IN SEGMENT 29 AT 000022868 @ 
#00002322* 

ZIPARRAY = Real ARRAY =" DECLARED IN SEGMENT 42 AT 00003533 

00003550 00003570 @ 

ZIPNUM == PROCEDURE e= DECLARED IN SEGMENT 42 AT 00003542 

0000354§ 00003566 

ZIPPNT ©* POINTER #2 DECLARED IN SEGMENT 42 AT 00003534 e 
#0000 3544%*00003545%#00003550% 00003554 #0000355 3%*0000 3554%*0000 3555*#0000 3556%*0000 3557#*0000 3558**0000 3559" 

#0000 3560 40000 356 1 #0000 356 2%%0000 356 3%%0000 3566640000 3567440000 3569% 

ZIPTEXT °" DEFINE =" pECLARED IN SEGMENT 42 aT 00003536 @ 

ea 


CROSS 


PHASE 


PHASE 


PHASE 


LABEL 


00003544 00003545 00003553 00003554 00003555 
00003562 00003563 00003566 00003567 00003569 


REFERENCE STATISTICS 


ONE * SORT 589 IDENTIFIERS 
0:25 ELAPSED TIME (CMINSSEC) 
O812 PROCESSOR TIME 

‘0:20 1/0 TIME 


TWO = SORT 19683 REFERENCES 
3337 ELAPSED TIME CMINESEC) 
34142 PROCESSOR TIME 
0432 17@ TIME 


THREE ™ PRINT CROSS REFERENCE ( 1766 LINES) 
43951 ELAPSED TIME CMINSSEC) 
1101 PROCESSOR TIME 
0830 1/0 TIME 


00003556 


OOOOO0060OLINE OO1781097COMPILE PASCAL/JUNK XALGOL XYNTAX 


00003557 


00003558 


00003559 


00003560 00003564 


XALGOL /PASCAL 


PEXECUTE O/R 
PACKET 225 
INPUT 5 CARDS FROM CRA 


TIME 1405 
DATE 78109 WEDNESDAYe 04/19/76 


*** BURROUGHS B5700 DCMCP MARK XV1,0,178 AND INTRINSICS MARK XV1,.0,132 44% 
#NO MESSAGES TODAY 


14105137 EXECUTE O/R 


14105137 2COMMON® } 

14405837 FILE LINEs LINE PRINT 

143051:37 PFILE S® PASCRUN/DISK 

14:05:38 ?END 

14105338 4:0/R® 3 BOv 1405 11/22/76 
44:05:39 PBDO226 OUT O11 LINEsO0/R® 3 
14:05:40 DKA IN SER PASCRUN DYISKtO/R® 3 
14405349 DKA REL PASCRUN DISK1O/R® 3 
44105350. Papdo226 Reb 011 LINE 47680/Re 3 
143805450 O/R= 3 EQU 1405 

14105151 FOR O/Re 31 PROCESS= 6 SECSs, [Oe 11 SECS» OLAYs 0 
14805151 PKT#0225 REMOVED 


LABEL QQOO0000Q0LINE OO17BL097EXECUTE O/R 


FrLes PASCRUN/DISK WEDNESDAY 04/19/76 


$ CARn SeQxeQ Reset LySrs 

GP Pn nr eRe Sennen D EEA DROLET ANTM EEE SN EP CRPOaT net renee eeban ane 
% 

% THE pASCAL RUN TIME@SYSTEM, : 
x PP RSP SSH BH SH Fee Bef Bane w 

& % 
RELALASATALSALARGAAATAAAGALALTALABASALALASAELABTALALSLSATALABLATLLTLLIE 
BEGIN? 

INTEGERS V00167¢¥001689V0016933 

FILE INPUT "INPUT" €201093% 

FILE OUTPUT 1 (2017 953% 

% 


DEFINE PROCFOU #PROCEDURES »% 

FUNCTN w#REAL PROCEDURE#,% 
DOWNTO s#STEP 94 UNTIL #o% 
UpTo eSTEp 4 UNTILae® 
B =BOOLEANg#% 

F00603 SINPUT#r& 

EOO742 wsOUTPUT#.% 

LASTCH (5:6) #0% 

BUFSIZE 3013:8)#,3 

BUFPNT #c2i38)#,% 


EOF e(22ti)#,% 
E OLN a(2381)#,% 
INP e(24t1)#,% 
OUTP ar25t1)#,% 
ENDFOUNDm( 2631 )#,2 


MEMSIZE 3j0000#es 
MAXINT 254975584 388783% 
z 


02:05 PM 


ARRAY MEMCOSMEMSIZE DIV 10220081022)» TEXT» CHAR(OtO}s TEMPTEXT(0949) 0% 


V00603L089]» VOO7TG2¢0116]5% 
INTEGER MEMPNT+ ¥T1010060351007425% 
POINTER CHARPNTs TEXTPNT}S 
LABEL TERMINATESS 


FORMAT TERMMESS ("*##* PROGRAM EXECUTION TERMINATED AT LINE ",1%," core 


CHECKERR (Meee THe VALUE %,7%)" 1S NOT YN THE RANGE “op ]*e " 
1*o™ "058 

ERRMARK CXH MxM) 9g 

CONCATERR(M#eee CONCAT ERRORE [Ch olmotet,[eeM Ep [Heh IM)? 


",% 


ILLEGALCE( teens ILLEGAL CARRIAGE CONTROL CHARACTERS Mmrw, Ad, wry gg 


SWITCH FORMAT ERRMESS 12% 
C03 
Cweeee NO READING WHILE EOF 1S TRUE,"), 
(we@ee NO WRITING WHILE EOF IS FALSEs")» 
(Weeee TLLEGAL CHARACTER,")s 
(*#ee* OVERFLOW ERROR,")» 
Croeeee NO RESET/REWRITE ON [NPUT/OUTPUT,")>» 
(*eeee LINE IMAGE OVERFLOW," 23 

MONITOR EXPOVRISREALOVERFLOW?S 

% 


INTEGER PROCEDURE NUMDIGITS(N)3% 
VALUE NF INTEGER N3® 


00004 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00044 
000145 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
000414 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
000514 
00052 
00053 


7R 


NUMDIGI¥SIaIF NaO THEN g+NUMDIGITS(C#N) ELSES 
IF N>9 THEN q¢#NUMDIGITS(N DIV 10) ELSE 132 
2 
PROCEDURE RUNERRCERRNUMsLINENUM) 3 %eee RUN TIME ERROR *## 
VALUE ERRNUMsLINENUMSS 
INTEGER ERRNUMeLINENUMES 
BEGINS 
WRITECOUTPUT,ERRMESSCERRNUM) D3 
WRITECOUTPUT, TERMMESS,NUMDIGITSCLINENUM) ol INENUM) 32 
GO TO TERMINATES 
END OF RUNERRI& 
% 


INTEGER PROCEDURE CHECK(VAL®eLIMI sLIM2eLINENUM)3¢ 
VALUE VALeLIMieLIM2eLINENUMS 
INTEGER VALeoLIMGeLIM2eLINENUMSS 
BEGING 
If VAL<LIM’ OR VALOLIM2 THENS 


BEGIN WRITECOUTPUTsCHECKERRs NUMDIGITSC(VAL)*sVALeNUMDIGITSCLIM1 9% 


LIMDeNUMDIGITSCLIM2) eLIM2)3% 
RUNERR( Ge LPNENUM) 32 

END 3% 

CHECKS =VALJIS 
END OF CHECKSS 
% 
ALPHA PROCEDURE CURDAT32 
CURDATI#” "STIMEC5S)£41935336)5% 
% 
ALPHA PROCEDURE WEEKDA3% 
WEEKDAS MT IMECO)R™ MPALt516 3% 


% 
INTEGER PROCEDURE TRUNC(X»LINENUM) IS 
VALUE X»sLINENUMSS 
REAL X8 INTEGER LINENUMSS 
BEGINZ 
IF ABS(X)>MAXINT THEN RUNERRC4+LINENUM) 3% 
TRUNCISIF XeO0 THEN wENTIERC#X) ELSE ENTIERCKIE% 
END OF TRUNCS% 
% 


INTEGER PROCEDURE ROUND(XeLINENUM)I% 

VALUE XeLINENUM32 

REAL x3 INTEGER LINENUMSS 

BEGING 
IF ABSCX)>MAXINT THEN RUNERRC4s+LINENUM) SS 
ROUNDtaxss 

END OF ROUND3% 

z 


BOOLEAN PROCEDURE ODDC(N)32 
VALUE N3$ INTEGER NI 
ODDten MOD 2 @ 13% 
% 
REAL PROCEDURE SQR¢(XseLINENUM) 3% 
VALUE XeLINENUM3S 
REAL X3 INTEGER LINENUMSS 
BEGINS 
1F ABS(X)>2,0769187034 THEN RUNERR(GeLINENUMD SS 
SQRtaxxxss 
END OF SQR3X% 
| 


00054 
00055 
00056 
00057 
00056 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00074 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00068 
00089 
00090 
000914 
00092 
00093 
00094 
00095 
00096 
00097 
000986 
00099 


00100. 


00104 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 


BOOLEAN PROCEDURE INCL1¢AsB)3 Beene 7S THE SET "A" INCLUDED 


VALUE AsBS REAL AeBS %eee YN THE SET "B", 
INCLIssREALCBOOLEANCA) AND NOT BOOLEANCB))m03g 

% 

BOOLEAN PROCEDURE [NCL2(AeB)) Zeew 1S THE SET "B™ INCLUDED 
VALUE AB) REAB ApBS Keaw oN THE SET "A", | 
INCL2¢SREALCBOOBEANCB) AND NOT BOOLEAN(A) 803% 

% : | 
BOOLEAN PROCEDURE INTST(A,B)3 Zeee 1S THE VALUE "A" AN ELEMENT 
VALUE AeBS REAL AoBS Beene IN THE SET "Bm, 


INTSTI@IF AeO OR A>38 THEN FALSE ELSE O&8BL013B"At1I]R13% 
% 


PROCEDURE NEWCPeSIZED3% 

VALUE SIZE REAL Pt INTEGER SIZES% 

BEGINS 
Pts]F MEMPN¥4+SIZE>MEMSIZE THEN O ELSE MEMPNT32 
MEeMPNT SmMEMPNT+SIZESS 

END OF NEWS2 

z 


PROCEDURE DISPOSECP»SIZE)I% 

VALVE SIZES REAw PS INTEGER SIZES 
BEGIN 

END OF BISPOSESS 

x 


PROCEDURE PACKCAsLLIMsULIMel eZeLINENUM) 3% 
VALUE LLIMsULIMe To LINENUMSS 
ARRAY AE*]3 ALPHA Z3% 
INTEGER LUTMsULIMe Ts LINENUMS & 
BEGINS 
Z1R03% 
FOR T1%e0 STEP 4 UNTIL 6 DOK 
ZEBACCHECKC IT oT i eLLIMeULIMeLINENUM)) & Z £41835336]3% 
END? 
% 


PROCEDURE UNPACKCZeAsLLIMeULIMe Le INENUM) 3% 

VALVE Zo LLIMeULEMe ToL INENUMS & 

ARRAY AC*¥)$ ALPHA Z33 

INTEGER LLIMeULI Me Te LINENUMSS 

FOR TytsO STEP 4 UNTIL 6 DOS 

ACCHECKCL +TieLLyMeULIMsLINENUM) J] ¥% 0 & Z (5844"6xT15673% 
% 


REAL PROCEDURE @ONCATCA,BoASeBSsNeLINENUM) 3% 
VALUE AsBeASeBSsNeoLINENUMSS 
REAL AeBs INTEGER ASeBS,NpLINENUMSS 
BEGINS 

IF AS<1 OR BS<14 OR N<O OR AS4N>48 OR BS4N>48 THENS 

BEGIN? 

FRR ITECOUTPUTs CONCATERR»NUMDIGITSCAS)»AS»NUMDIGITS(BS) o5 

BSsNUMDIGITSCN) oN)SE 
RUNERRCOsLINENUM) 32 

ENDS 

CONCATI@A & B CAT@ASTA7T#BSINI3E 
END OF CONCATI& 
% 
BOOLEAN PROCEDURE BIT(N,LINENUM) 3 S*** SET BIT NO "N” IN A WORD, 
VALUE NeLINENUMS INTEGER NeLINENUMSS 
BITSSBOOLEANCO & 1 C38™=CHECKCN® 00 38eLINENUM) 1084] )3% 


00112 
00113 


00114. 


00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00134 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
001443 
00442 
00143 
00144 
00145 
00146 
00147 
00146 
00149 
00150 
00151 
00452 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00164 
00162 
00163 
00164 
00165 
00166 
00167 
00168 


& si: 
BOOLEAN PROCEDURE BITSC(CNYeN2eLINENUM) 3 soles SET BITS "N1i",,"NQ", 
VALUE Nt sN2sLINENUMS% 
NTEGER NisN2eaLINENUMSS 
SIT STSROULE eG RB IM TT7 7777777777" ~ C3IB"™CHECK(N1,00 36eLJNENUM) 8 3683 


CHECKOCN2 e002 36aLINENUM)@N143))3% 


% 
PROCEDURE RLINECF se BUF sINFO)3S 
FILE FS ARRAY BUFLOJS INTEGER INFOS 
BEGIN 
LABEL ENDFILE3SS% 
INFO,EOLNS&O3 INFO, BUFPNT#a13% 
READCKs999eBUF(*I) FENOFILE]3% 
REPLACE CHARPNT BY POINTERCBUF[*]) FOR 139 
INFO, LASTCHIZCHARLO}32% 
IF FALSE THENS 
BEGIN ENDFILE# INFO, ENDFOUND$ 243% 
END}% 
END OF RLINE#S3% 
% 


REAL PROCEDURE PREADCFsBUFs INFOsMODE +L INENUM) $% 
VALUE MODE sLINENUMSS 

FILE F3 ARRAY BUFCOJI2 

INTEGER INFOoMOBEeLINENUMSS 


BEGINS 
DEFINE GETCHARRE 
BEGINS 
IF BOOLEANCINFO,EOLN) THENS 
B NZ 
PAL INECELGURTINEOIS CHI@INFO,LASTCHIS 
END ELSES 


IF INFO,BUFPNTmINFO,BUFSIZE THEN 
BEGIN CHis” "3 INFOeEOLNS 8] END ELSES 
BEGINS 
REPLACE CHARPNT BY POINTERCBUFC#J)+INFO,BUFPNT FOR 13% 
CHSMCHARCO)3 INFOsBUFPNTS=INFO,BUFPNT 413% 
END END OF GETCHARS3% 


z 
DEFINE READERRCERRNUM) 3% 
BEGINS 
WRITECOUTPUTS 999+ BUF LHI DIZ 
WRITECOUTPUTSERRMARK sp INFO, BUFPNT@1 3% 
RUNERRCERRNUMeL yNENUM) I 
END OF READERR#32% 
% 
REAL RES! ALPHA CH3% 
BOOLEAN NEGATIVE sNEGEXP3 INTEGER POWERSEXP32 
LABEL OVERFLOW» RETURNS & 
% 


IF BOOLEANCINFO,EOF) THEN RUNERRC 1 eLINENUM) ES 
IF BOOLEANCINFO,ENDFOUND) THENS 
BEGIN 
INFO,£O0F%8eis PREADI#O3S 
GO TO RETURNIS 
% . 
ie Wooes THEN eae MODE w CHAR uuu 
BEGINS . 
PREADteINFOsLASTCHS GETCHARS INFO,LASTCHEeCHsS 


00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
001786 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
001868 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00204 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 


PROCEDURE WLINECFeBUFsINFO)3 
FILE FS ARRAY BUFLOJS INTEGER INFOS 
BEGINS 


Beesuer ee Bee MODE = REAL/INTEGER *4* 

CHISINFO,LASTCHI3 
WHILE CHae " AND NOT BOOLEANCINFO,ENDFOUND) DO GETCHARSS 
IF BOOLEANCINFO,ENDFOUND) THEN 
BEGINS 

INFO,EOFS #13 PREADS#O3% 

GO TO RETURNSS 
ENDS ae : 
IF CHa"e" OR CHate" THEN BEGIN NEGATIVE;eCHs"~"s3 GETCHAR END3 
If CH>9 TMEN READERR(3)3% 
RES#sCHs GETCHARSS | 
WHILE CHS9 DO BEGIN REStm{OxRES+¢CH GETCHAR ENDSS 
IF MODE®3 THEN % MODE = REAL, 
BEGINS 

IF CHE"," THEN 

BEGINS 

GETCHAR! IF CH>9 THEN READERR(C3)3% 


WHILE CHS9 DO BEGIN REStw1OxRES+CHIEPOWERS ePOWER@13GETCHAR ENDS 


END3% 
IF CHE"E” THENS 
BEGINS 
GETCHARI2 
re CHa"+" OR CHe"=" THEN BEGIN NEGEXP38CHe"e"3 GETCHAR ENDIS 
1F CH>9 THEN READERR(3)33% 
WHILE CHS9 DO BEGIN EXPts10xEXP4CH} GETCHAR END3S 
IF NEGEXP THEN FXPtmmEXP33 
ENDS% 
POWERS SPOWERSEXPIS 
REALOVERFLOWISOVERFLOWS REStwRESx1O*POWERSS 
IF FALSE THEN OVERFLOWS READERR( 4) ix 
REALOVERFLOWS 803% 
END ELSE IF RES>MAXINT THEN READERR(4) 38 
PREADItsIF NEGATIVE THEN *RES ELSE RES3% 
INFO, LASTGHIRCHSS 
ENDIS 


RETURNS 
END OF PREADS2 


Z*ee PRINT A LINE, *¥% 


ALPHA CCI 
IF BOOLEANCINFO,OUTP) THEN? 
% . 
aes CHARPNT BY POINTER(BUFE#J]) FOR 42 CC8eCHAR(OJ32 
REPLACE PQINTER(CBUFC*]) BY " "3% 
IF CCa"® * THEN WRITECOUTPUT 2999» BUF[¥)) ELSES 
IF CCa"s" THEN WRYTECOUTPUT[NO1,999eBUFP*)) ELSES 
BEGINS 
IF CCR"O" THEN WRYTECOUTPUT) ELSES 
IF CCw"=" THEN WRITECOUTPUTLDBL)) ELSES 
IF CCCs" THEN WRITECOUTPUTCPAGE]) ELSES 
WRITECOUTPUTeILLEGALCCeCC)I% 
WRITECOUTPUT s999eBUF[«) 3% 
ENO3% 


00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00236 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 


00276. 


00279 
00280 
00281 
00282 
00283 


END ELSE WRITECF 2999s BUF («)) 3% ; 
REPLACE POINTERC(BUF(*)) BY * * FOR INFO,BUFSIZES3 
INFO,BUFPNT##052% 

END OF WLINEI3 

% 


% 
PROCEDURE CHFILEF)32% 
FILE Fs 
BEGIN 
ARRAY Ac0t6]33% 
SEARCHCFs AL] )3% 
IF ACO)#"41 THENS 
BEGINS 
F,AREAS te 203% 
F,AREASIZE te 3003% 
ENDs% 
END OF CHFILE% 
% 


% 
PROCEDURE WALFACKe BUF ae INFORALe AZP ASP AGP ASe Abr ATs ABr AIe A102 ALL» AL2*e ALENGs 
LINENUM) 33 
VALUE Aq eA2rAZr RAP AS SAGSATPABSAD HAL OHALL FAL SPALENGeLINENUMES 
FILE F3 ARRAY BUFLOJ3 INTEGER INFOsALENGeLINENUMSS 
ALPHA AL eA2s AS sAGeAS er AG eAT PAB AD PALO ALL PO AL2I2 
BEGINS 
ALPHA AS PQINTER PNT33 
LABEL EX1T33 
IF NOT BOOLEANCINFO,£OF) THEN RUNERRC2,LINENUMI 32% 
IF INFO,BUFPNT+ALENG2ZINFO,BUFSIZE THEN WLINECFeBUFe INFO) 3% 
PNT? sPOINTER(BUFL*))4INFO,BUFPNTS2 
INFO, BUFPNTS a INFO, BUFPNI+ALENGES 
FOR AbwAL DAZ PAZ rAD DAS DAG RAT pABs AD 2 AL0O PAIL pAL2 DOS 
BEGINS 
TEXTCO] ERASE 
REPLACE PNTEPNT BY TEXTPNT FOR MINCALENG?7) 33 
ALENGIsALENG"73 IF ALENGSO THEN GO TO EX] TIE 
ENDI% 
EXITSS 
END OF WALFAS? 
z 


% 

PROCEDURE PWRITECFe BUF» {NFOr Es EMODE® Mp Ne einen EAOYS 
VALUE Es EMODE »MeNeoLINENUMES 

FILE F% ARRAY BUF(O)S REAL E32 

INTEGER INFOsEMBDEsMeNeLINENUMSS 


BEGINS 
INTEGER NCHARS»NEXP,12 POINTER CPNT#S 
DEFINE PUTCHAR(C)™ % PUTS A CHARACTER INTO TEMPTEXT 


BEGIN CHARCO@)teC# NCHARSISMNCHARSS13% 
REPLAGE CPNT&CPNT BY CHARPNT FOR 13% 


END#S2 
% 
PROCEDURE PUTINTC(N)} % PUTS AN INTEGER INTO TEMPTEXT 
VALUE NS IDTEGER NB 3 WITH ZERO SUPPRESSION, 
IF WS9 THEN PUTCHARCN) ELSES 
BEGIN PUTINFCN DIV 40)3 PUTCHARCENTIERCN MOD 10)) ENDS 
% 


00284 
00285 
00286 
00287 
00288 
00289 
00290 
00294 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
0030; 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00334 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 
00340 


t 


CPNTSSPOINTERCTEMPTEXT(#) 4% 
IF NOT BOOLEANCINFO,FOF) THEN RUNERR(2sLINENUM) 3% 
If EMONDEs!L FHEN Zeee MODE = INTEGER *#u8 
BEGINS 
IF £<0 THEN BEGIN PUTCHARC"™@=")3 Eteme ENDSS 
PUTINTCE)32% 
END ELSES 
IF EMODE8S2 FHEN 
BEGINS 
PUTCHARC™ ")8% 
IF E<0 THEN BEGIN PUTCHAR("=")3 Etre ENDS 
IF E>MAXINT OR N<o THEN % FLOATING@*POINT, 
BEGINS © 
IF €>0 THENS 
BEGINS 
WHILE E<i1 00 BEGIN NEXP#mNEXP#13 Ete lOxE FENDI 
WHILE £210 DO BEGIN NEXPtENEXP413 E@E/10 ENDSS 
END33 
LimMAX( M854 )3% 
EtaE+0,5x10"(9] 3% 
IF € GE@ 10 THEN BEGIN NEXPHSNEXP443 F2eE/10 ENDIS 
PUTCHARCENTIERCE))$ EtsEeENTIERCE)S PUTCHARC%.")33% 
DO BEGINS 
EtstOkEs PUTCHARCENTIER(E) 23% 
EtsEPENTIERCE)S Lteloiss 
END UNTIL [03% 
PUTCHARC™E") 3% 
IF NEXP@O THEN BEGIN PUTCHARC(™#")3 NEXPSe"NEXP ENDS 
ELSE PUTCHAR("4") 3% 
PUTCHARCNEXP DIV 14023 PUTCHARCENTIERCNEXP mOD 10))3% 
END ELSES 
BEGIN & FIXED*POINTs 
ENSE+0,8x108(ONDIE 
PUTINTCENTIERCE))# PUTCHAR(™,")3 EsmEwmENTIERCE) 3% 
1F N>150 THEN RUNERR(OeLINENUM) 33% 
FOR Jte4¢ STEP { UNTIL N DOR 
BEGIN Etw10xE3 PUTCHARCENTIER(CE) 33 
E’BEMENTIFROEDIS 
END END END ELSES 
IF EMODEs3 THEN 
BEGGING 
IF E<0,5 THEN REPLACE CPNT BY “FALSE® ELSE REPLACE CPNT BY "TRUE? 
NCHARSIaI& €<0,5 THEN 5 ELSE 433 
EnD ELSES 
IF EMODEs#5 FHEN 
BEGINS 
TEXTCOJ8 Es NCHARS# MING M07) 
REPLACE CPNTEICPNT BY TEXTPNT FOR 73% 
END ELSES 
BEGIN 3¥e%* MODE = CHAR ##% 
PUTCHAR(E2)3% 
ENDS . 
IF NCHARS>M THEN MieNCHARSS2 
IF INFO,BUFPNT+M> INFO, BUFSIZE THEN WLINECFeBUFs INFOJS2 
IF M>INFO,BWFSIZE THEN RUNERR(6eLINENUM) 3 
REPLACE POINTERCBUF EL #))4+CINFO,BUFPNT*#M@"NCHARS) BY 
POINTERCTEMPTEXTEC*#]) FOR NCHARSS2 


Z**e* MODE # REAL *** 


Z*¥** MODE = BOOLEAN *=# 


eee MODE = ALFA eee 


00341 
00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00358 
00359 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00368 
00369 
00370 
003714 
00372 
00373 
00374 
00375 
00376 
00377 
00378 
00379 
00380 
00384 
00382 
00383 
00384 
00385 
00386 
00387 
00388 
00389 
00390 
00394 


00392 


00393 
00394 
00395 
00396 
00397 


INFO,BUFPNTS#INFO,BUFPNT4M3S% 
END OF PWRITE3% 
% 
% 
PROCEDURE PUTCF. EME OStANENenre 
VALUE LINENUMI 
FILE fF! ARRAY BUF #32 
INTEGER JNFOsoLINENUMSS 
BEGINS 
IF INFO,BUFSIZEeO THENS 
BEGINS 
IF NOT BOQLEANCINFO,EOF) THEN RUNERR(2eLINENUM) SS 
WRITE CF e1023eBUF(#)) 5% 
END fuse PWRITECF se BUF eo TNFOrTNFO,LASTCHe See, eL I NENUM) 3% 
END OF PUT3% 
% 


% 
PROCEDURE GETCFsBUF se INFOsLINENUMI 3 
VALUE LINENUMS% 
FILE F3 ARRAY BUFC#IIZ 
INTEGER INFO*LINENUMSS 
BEGINS 
ALPHA Xs LABEL ENDFILES% 
IF INFO,BUFSIZE®O THENS 
BEGINS 
IF BOOLEANCINFO,EOF) THEN RUNERR(1eLINENUM) IS 
READCFei023eBUFEC*)) CENDFILEI3% 
IF FALSE FHEN  ENDFILE! INFO,EOF m1 s% 
END ELSE XtePREADCF BUF eINFOsteLINENUM) 3% 
END OF GETS 
x 
z 
PROCEDURE PPAGECFe BUF» INFO*eLINENUM) 3% 
VALUE LINENUM3SS 
FILE FS ARRAY BUF(#I)33 
INTEGER INFOs*LINENUMSS 
BEGINS 7 
IF NOT BOOLEANCINFO,£OF) THEN RUNERRC2sLINENUM) 3% 
WRITECFLPAGE} 83 
END OF PPAGES% 
z 


z 
PROCEDURE RESETCF eBUF ps INFOsLINENUM) 32 
VALUE LINENUMSS 
FILE Fs ARRAY BUFC*¥IES 
INTEGER INFOsLINENUMSS 
N 
esky BOOLEANCINFO,INP) OR BOOLEANCINFO,OUTP) THEN RUNERRCS5SeLINENUM)3S 
REWIND(FIS INFO,EOFteOS INFO,EOLNEMO3 yNFO,BUFPNTIBOSS 
INFO, ENDFOUND I 803% 
IF INFO,BUFSIZE®O THEN GETCR eBUFe INFOsoLINENUM)S 
ELSE RLINECFe BUF es INFOS 
ENO OF RESET32 
z 


PROCEDURE REWRIFECFo BUF» INFOoLINENUM) 5% 
VALUE LINENUMS® © 

FILE F¥ ARRAY BUFC«)3% 

INTEGER JINFO*OLINENUMSS 


00398 
00399 
00400 
00404 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
00414 
00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 
00420 
00424 
00422 
00423 
00424 
00425 
00426 
00427 
00428 
004829 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00438 
00439 
00440 
00444 
00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 
00452 
00453 
00454 
00455 


BEGINS 


Ms% 
IF BOOLEANCINFO.INP) OR BOOLEANCINFOsOUTP) THEN RUNERR(S»LINENU 
REWINDCF 93 INFO,E0FS©1$ INFO,BUFPNTSS03 INFO,ENDFOUNDI#0)3 
IF INFO,BUFSIZE>0 THENS 
REPLACE POINTERCBUFC*)) BY " © FOR INFO,BUFSIZESS 


END OF REWRITESS 


% 
% 


PROCEDURE INITCINPUTDECL)3% 
VALUE INPUTDECL32% 

BOOLEAN INPUTDECL3% 

BEGINS 


MEMPNT Sass 
CHARPNTI@POINTERCCHARE*))473 TEXTPNTIBPOINTER(TEXTC#] 4153 
TtmO} T,BUFSIZE's603 T,BUFPNT##803 T,EOLNEw13 T,INPiay 3% 
1O0603%mTs YF JNPUTDECL THEN RLINECINPUT,VQ06030 100603)3% 
Taiw03 T, BUPSIZEt#1 323 T,EOLNisgs T,OUTptnys3 T EOF img se 
LO0Z42IeT3% 

eeprace POINTERCVOO0742C*]) BY * * FOR 47 WORDS33 


END OF INITS2% 


LABEL QOOQ000080LINE OOL78L097EXECUTE O/R 


00456 
00457 
00458 
00459 
00460 
00464 
00462 
00463 
00464 
00465 
00466 
00467 
00468 
00469 
00470 
00474 
00472 
00473 
00474 
00475 


7R 


“me 


PEXECUTE PASCAL/PASCAL 
PACKET 223 
INPUT 205 cARDS FROM CRA 


TIME 1355 
DATE 78109 WEDNESDAYs 04/19/78 


*** BURROUGHS B5700 DCMCP MARK XVJI,0,178 AND INTRINSICS MARK XVI,0,132 ««* 
#NO MESSAGES TODAY 


13955955 EXECUTE PASCAL/PASCAL 
13455855 ?DATAOS9 SOURCE 


13455156 5SEPASCAL/PASCAL®04 SCHEDULED 1355 NEEDS 27264 

13156:53 1X58 

13456353 SSPASCAL/PASCAL® 1 Bov 1356 04/19/78 

1335656 DKA IN SER PASCRUN DISK#PASCAL/PASCAL® } 

13356256 DKA OUT SER PASC325 YOOOODOOIPASCAL/PASCAL® 1 

13457303 DKA REL PASCRUN DISK:PASCAL/PASCAL® 1 

13857210 PBD0224 OUT O11 LINESIPASCAL/PASCAL® 1 

13357312 CDB IN SOURCESPASCAL/PASCAL® 1 

#3:558:05 +OPERATOR KEYED IN$ ik 

13158405 TIME LIMITS FOR PaSCaL/PASCAL= 1 ARES PRT#NO LIMITS JOT#NO LIMIT, 
13158420 +OPERATOR KEYED INS 10730845 

$315882) INV KBD 1CT30845 

43158331 +OPERATOR KEYED INS 1cT 30845 

$3'58331 INV KBD 1CT 30845 

13358840 +OPERATOR KEYED IN& 16730845 

13158340 PRT AND IOT ESTIMATES CHANGED FOR PASCAL/PASCAL® 1 

$3#58340 TIME LIMITS FOR PASCALYPASCAL® 1 ARES PRTws 0:303 [OTe 0:45, 
43159108 +OPERATOR KEYED IN& 10672005200 

13659109 PRT AND JOT ESTIMATES CHANGED FOR PASCAL/PASCAL= 1 

134593809 TIME LIMITS FOR PASCAL/PASCALws 1 AREt PRTw 31208 [OTs 3120, 
13459126 #OPERATOR KEYED IN? 4T! 

1345591927 TIME FOR PASCAL/PASCALe 4 18% CPme 15, [Oe 56 IN 2134 
13!591858 #OPERATOR KEYED IN? 14¢7300 

13459359 PRT ESTIMATE CHANGED FQ@R PASCAL/PASCALE 14 ' 

13359859 TIME LIMITS FOR PASCAL/YPASCAL® 1 ARES PRT= 541003 [OTe 3420, 
14800935 +OPERATOR KEYED INS 1¢7,500 

14800816 10T ESTIMATE CHANGED FOR PASCAL/PASCAL® 1 

14100317 TIME LIMITS FOR PASCAL/PASCAL® 1 ARES PRTs 53008 10T# 8120, 
14101803 DKA LOK PASC325 UQOOOQOBEPASCAL/PASCALS 1 


44101104 CC USER#U0000003 

144101404 COMP1LE INSANE/U000000 xALgOLs 

£4101804 XALGOL FILE CARDePASC325/U009000 SERIALS 
$410,504 END 


£4101806 StXALGOL/INSANE®OY SCHEDULED 14015 NEEDS 14976 

14404807 PBDO224 REL 011 LINES Q138PASCAL/PASCAL® 4 

14404107 COB REL SOURCENPASCAL/PASCAL=® 1 

14101107 ?DATAO29 INPUT 

14401806 PASCAL/PASCAL® 1 EOJ 1401 

#4401209 FOR PASCAL/PASCAL® 14 PROCESS# 40 SECS» 108 104 SECS» OLAYs 47 
* 


-_ 


i) ®. 
e 
$4:01309 SIXALGOL/INSANE® 1 BOW 1401 04/17/78 
14901911 DKA IN SER PASC325 UDO0COOOSXALGOL/INSANE® 1 
. 14101314 DKA OUT RDM INSANE U000000;xXALGOL/INSANES 1 
#4101138 +OPERATOR KEYED INE 17L 
$41015636 TIME LIMITS FOR XALGOL/INSANE® 1 ARE? PRT@NO LIMITS [OTSNO LIMIT, 
@ 14104158 +OPERATOR KEYED IN# 167300300 
44104958 PRT AND [OT ESTIMATES CHANGED FOR XALGOL/INSANE® 1 
14401858 TIME LIMITS FOR XALGOL/INSANE® 1 ARES PRT= 53003 [OTs 5100, 
e 14301158 DKA LOK INSANE UOQOOOOIXALGOL/INSANES® 1 
144014158 DKA REL PASC325 UO00D0@SXALGOL/INSANES 1 
14801159 XALGOL/INSANE® 1 €0J 1401 
e@ #4101859 FOR XALGOL/INSANE® 14 BROCESS= 38 SECS» 10" 18 SECS» OLAY= 1 
14802100 5SYINSANE/U0000008 1 BOU 1401 04/19/78 
14102501 COB IN INPUTIINSANE/YO80000" 1 
e 144802301 PBDO224 OUT 021 OUTPUTS INSANE/U0000008 1 
141023820 +OPERATOR KEYED INI ATL 
14102320 TIME LIMITS FOR INSANE/ZUO00000R 1 ARE? PRT@NO LIMIT IOTsNO LIMIT, 
-@ 44809934 +OPERATOR KEYED INt 1¢T200»200 
: 14802834 PRT AND [0T ESTIMATES @HANGED FOR INSANE/U000000s 1 
: 14302334 TIME LIMITS FOR INSANE/U000000= 1 ARES PRT 34203 I0T= 3120, 
@ 14302150 #OPERATOR KEYED INS 1TI 
14802351 TIME FOR INSANE/U000000s 1 1St CPe 44, [0m 14 IN 5} 
14:03:33 #OPERATOR KEYED INt 1TI 
@ 348031833 TIME FOR INSANE/U000008s 1 183 CP™ 18230 [Os 21 IN 1133 
14004149 +OPERATOR KEYED IN 17] 
14204849 TIME FOR JNSANE/U000Q0@= 1 ySt CP® 23325 10= 35 IN 2149 
& 14405152 +OPERATOR KEYED INS ITI 
£4:051352 TIME FOR (NSANE/U000000s 1 1S! CPs 3322, JO 44 [N 3352 
4106017 OPERATOR KEYED INS 17] 
@ 14406817 TIME FOR INSANE/U000000=% 1 [S$ CPm 34459 [0m 49 IN 4318 
141069118 +OPERATOR KEYED INS 1TL . 
14306818 TIME LIMITS FOR [NSANE/U000000" 1 ARES PRT® 32203 J0T= 3520, 
@ $4106142 +OPERATOR KEYED IN# 108 
#4106842 *OPRTR DS*ED INSANE/UQ0Q000e je St 105 A= 21410 
14306143 CDB REL INPUTS INSANE/U000000s 4 
@ 14306843 END 
#4406143 PBDO0224 REL 021 OUTPUT 79448 ]NSANE/U0000008 1 
14306843 INSANE/U000000= { DSeED 1406 
e £4206544 FOR {NSANE/U000000c 48 PROCESS= 247 SECSs [0s 62 SECS» OLAY= 1 
44106244 PKT#0223 REMOVED 
®@ 
@ 
@ 
@ 
@ 
@ 
® 


